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Only Microware's OS-9 

Operating System Covers 

the Entire 68000 Spectrum 



MICROWARE'S OS-9 




ROM-BASED 
CONTROL 
SYSTEMS 



HDPPY-DISK BASED 

PERSONAL 

COMPUTERS 



HANOHEIO 
COMPUTERS 



HARDWAftE/SOFimRE 
DEVEIOPMENT SYSTEMS 



SINStE USER 
MULTI-TASKmC SYSTEMS 



MEOIUM-SCAIE 
TIMESHARING SYSTEMS 



SMALL SYSTEMS 



LARGE SYSTEMS 



Is complicated software and expensive hardware 
keeping you back from Unix? Look into C>S 9, the 
operating system from Microwarc that gives 68000 systems 
a Unix-ityic environment with much less overhead and 
complexity. 

OS-9 is versatile, inexpensive, and delivers outstanding 
performance on any size system. The OS-9 executive is 
much smaller and far more et- 
ficient than Unix because il's 
written in fast, compact as- 
sembly language, making it 
ideal tor critical real-time ap- 
plications. OS-9 can run on 
a broad range of 8 to 32 bit 
systems basetJ on Ihe 68000 
or 6809 family MPUs from 
ROM^jased industrial con- 
Irolleis up to large multiuser 
systems. 

OS-9'S OUTSTANBING 

C COMPILER IS 
YOUR BRWCE TO UNIX 

Microwajp's C compiJer tech- 
nology is another OS-9 advantage. The compiler produces 
extremely fast, compact, and ROMable code. You can easily 
develop and port system or application software back and 
forth to sSaniiancl Unix systems. Cross-compiler veisions for 



Key OS-9 Features At A Glance 

Compact (1EK) ROMable ewcutive written in assembly 

language 

User "shell" and complete utility set written In C 

C-source code level compatiblli^ wittt Unix 

Full Multitasldnc/multiuser capabilities 

Modular design - extremely easy to adapt, modify, or 

expand 

Unix-type tiee structured file system 

Rugged "crashproof" file structure with record locking 

Works well with floppy disk or ROM-based systems 

Uses haiilware or software memory management 

High performance C, Pascal, Basic and Cobol compilers 



VAX and PDP 1 1 make coortiinated UnixOS-9 software 
development a picasutv 

SUPPORT FOR MOBULAR SOFTWARE 
- AN OS-9 EXCLUSIVE 

Comprehensive suppurl for mcxiular softwaie puts OS9 
a generation ahead of other operating systems. 11 multiplies 
programmer productivity and memoiy efficiency. Applica- 
tion software can be buili 
from individually testalile 
software modules including 
standaid "library* modules. 
The modular structure lets 
you customize and recon- 
figure OS-9 for specific hard- 
ware easily and quickly. 

A SYSTEM WITH 

A PROVEN 
TRACK RECOR* 

Once an underground 
classic. OS-9 is now a solid 
hit. Since 1980 OS-9 has 
been ported to over a hun- 
dred 6809 and 68000 

systems under license to some of (he biggest names in the 

business. OS-9 has been imbedded in numerous consumer. 

industrial, and OEM products, and is supporleii by many 

independent software supplieis. 
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ftiwr (0502) ')2^425 
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AUTHORiaED MICRCIWAKI DISTRIBUTORS 



lAFAN 

MICROWARE JAPAN tro 
ys^ Btiakl. IchikjWd 
Chilli 272-01 Upan 
phrmr 0473 (lai 449-1 
IrU-x 7»1 290 JIJl 



SWEOIN 

MICROMASTER 

SCANDINAVIAN Al 

St IVnibl^n "> 

Ben >ii» 

S7SI-4.t lIppMld 

Sweden 

I>t«3lK: 018 1.1»S»S 

tr^n 76129 



SWirZtRUNO 

E150R AC 

iAll Neu«niwl 

SwilMtUrnl 

phanr (41) 036.«^2724 

tel« i"l.»* 



Oi-9 i% a troikmiitk of MJcmvRitc and MittotoU, Unix is i itadcnutk oi Kcll Uto. 
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MICROWARE SYSTEMS 

CORPORATION 
law NW 114th SlfWt 
l)n Moirm taw* 30^22 
USA 

ph<mc: Sl5Z24.|92<> 
lefcn; »)0.520-25.« 
FAX 5Ivai41.<S2 

WEST GERMANY 

DR KEIL CMBH 

D (lUtV^ Schrlcilirim 
IVbI G»rm*tiy 
ph«nr (0 62 0» d7 41 
tcloci 4OJ025 



ALL SYSTEMS INCLUDE: 

* Tlw CLASSV CHASSIS with a lerro-resonant, cwislant vollage power 
supply that pruvides -» 8 volts at 30 Amps, * i6vt)ltsatSAmps. and 
-16V0HS at S Amps 

' GoM plated bus connectors. 

' Double density DMA lloppy disk contfotlers. 

* Complete hardware and software documentatkM. 
■ Necessary caMes. filler plates 

YOU CAN EXPAND YOUR SYSTEM WITH: 

MASS STORAGE 

Dual 8" DSOO Floppies , Cabinet & Pmrer Supply S1S9S.U 

60MB SVkamer(UniFLEX-020 only) SZ400.00 

1 .6MB Dual Speed fUfin , (under development) 

MEMORY 

«67 Sialic RAM-64KNM0S (6869 Only) $349.67 

»64 Sialic RAM-64K CMOS w/banefy(6B09 Only) S398.64 

#72 256K CMOS Sialic RAM w/Dattery $998.72 

#31 16SocketPflOM/ROM/RAMBoard(6B09only) $288.31 

INTELLIGENT I/O PROCESSOR BOARDS 

significantly reduce systems overhead by handling routine I/O (unc- 
tions: lieeing the fiosi CPU lor running user programs. This improves 
overall system peiformance and allows user terminals to be run at up 
to 19 2K baud For use with GMX III and 020 systems. 

#11 3 Port Serial-30 Pin (OSS) $498.11 

#14 3 Pon Se(lal-30 Pin (UnlFLEX) $498.14 

#12 Parallel- 50 Pin (UniFLEX -020) $$38.12 

«13 4PonSef<a) 5OPin(0S9SUniFlEX-020) $618.13 

I/O BOARDS (6809 SYSTEMS ONLY) 

#41 Serial. 1 Port $88.41 

#43 Serial. 2 Port $128.43 

#46 Serial. 8 Port (0S9/ FLEX only) $318.46 

#42 Parallel, 2 Port $88.42 

#44 Parallel, 2 Port (Centronics pinout) $128.44 

#45 Parallel, 8 Port (0S9 /FLEX only) $198.45 

CABLES FOR I/O BOARDS-SPECIFY BOARD 

«9S (halite sets (1 needed per port) $24.95 

#51 Cent. BP Cable for #12 4 #44 $34.51 

«63 Cent. Cable Set $36,63 

OTHER BOARDS 

#66 Prototyping Board-50 Pin $56.66 

#33 Prototyping Board- 30 Pin $3«.33 

Windrush EPROM Progrwraner S30 (0S9/FLEX 6909 only) $645.00 

CONTACT GIMIX FOR FURTHER DETAILS ON THESE AND 

OTHER BOARDS AND OPTIONS. 

EXPORT MODELS AOO $30 FOR 50H2 POWER SUPPLIES. 

ALL PRICES ARE F.OB CHICAGO 

GIMIX DOES NOT GUARANTEE PERFORMANCE OF ANV GIMIX 

SYSTEMS, BOARDS OR SOFTWARE WHEN USEO WITH OTHER 

MANUFACTURERS PRODUCT 

GiMIX, Inc. reserves the right la change pricing, terms, and products 

specWcaUons al any linie without luilher notice. 





GIMIX 2MHZ 6809 SYSTEMS 




GMX 68020 * 
SYSTEMS 




OpeiaUng 

Systems 

Included 


#49 

0S9GMX 1/ 

and FLEX 


#39 

0S9GMXII/ 

and FLEX 


«79 

0$9GMXIII/ 

and FLEX 


•39 

UniFL£X 


»89 

UnlFLEX III 


•020 

UniFLEX VM 




CPU Included 


#05 


#05 


GMX III 


#05 


GMX III 


GMX 020 ->- MMU 




Serial Porti 
Included 


2 


2 


3 Intefligent 


2 


3 InteBigent 


3 intelligeni 




High Speed 
Sialic RAM 


64KB 


256KB 


256KB 


256KB 


256KB 


1 Megati/te 




PRICES OF 
SYSTEMS WITH: 

Dual 60 Track 
DSOO Oriives 


$2998 49 


$3398 39 


$4898 79 


N/A 


N/A 


N/A 




25MB Hard Disk 
and one 60 track 
Floppy Disk 


$559849 


$599839 


$7798.79 


$5998.39 


$8098 89 


$13,680.20 




72 MB Hard Disk 
and one 60 track 


$759849 


$799839 


$9798 79 


$799839 


$10,098.89 


$15.680 20 




a 72MB - a 6MB 
removable pack 
hard disk and one 
80 track floppy 


$9098.49 


$9498 30 


N/A 


$9498.39 


N/A 


N/A 




a 72MB ••■ a 12MB 
remwaWe pack 
hard disk and one 
80 track floppy 


N/A 


N/A 


$11,298.79 


N/A 


$11,598.89 


S17.160.20 




GMX 6809 0S9/ 
FLEX SYSTEMS 
SOFTWARE 

0S9 -^ Editor, 
Assembler. Debugger 


GMX 1 
Included 


GMX II 
Included 


GMX III 
Included 


TO OflOER ev lUlL SEND CHECK OA HONEY OROER OR USE VCKIR VISA OR HASTB) 
CMAHG€ PieiM atio* 3 wKKs to pereoftji ciwcKs to ewf u S irter, Md » (lanA- 
infl It order is uMSf S;00 M Fo^eisn orMfs Ma $10 nanddng i( (KOtr a under 
l?00 OO Foteion orders over JHH) 00 *ili be itiippM m Em»ry *ir Frtljhl COLLECT, 
ind me will ctuiga no nineiing Hi orders must tit prepw) in u S tunOs Ptaua ncte 
thil torogn cutcM tiiv* Men tilling ibout t week) leu coOKtwn so w« wguld advsa 
wnng itiamtt, or dacks drawn on t Unti Kcounl tn me U S (hi' luMt It Bw Cortnan- 


FLEX 


Included 


Included 


Included 


GMXBUG Monitor 


Included 


Included 


Included 


Basic 09. RunB (0S9) 


Included 


Included 


Included 


tiunbst 73-32033 


AMS (6S9) 


Included 


Included 


Included 


BASIC-D9 ind OS 9 irt trademarks of Mlcrowire SysMns Corp and I^OTOROU. Iik 
FLEX and unfLEx ir* trademams at Technical Sytterm Conunants. inc GiMix 
GMOST. GMX CLASSV CHASSIS ari tratMniarks or GIUIX. inc 


DO (0S9) 


included 


Included 


Included 


VDtsk for FLEX 


N/A 


included 


Included 


RAMOisk for 0S9 


N/A 


$125 opHon 


Included 




DFLEX 


N/A 


$250 option 


Included 


_^ ^ _ ^^^X-5^^ 


Support ROM 


N/A 


N/A 


Included 


cimiV'nc. f,,m^ 


Hardware CRC 


N/A 


N/A 


included 



AvaiiaMe Wide variety ol languages and other sOtwan 
for use with either OS-9 or FLEX. 

All GIMIX versions of 0S9 can read and whie RS color 
computer format 0S9 disks, as well as the 
Microware/GIMIX standard format. 

All 0S9/ FLEX systems allow you to soltware select either 
operating system. 



1337 WEST 37th PLACE 

CHICAGO, ILLINOIS 60609 

(312) 927-5510 • TWX 910-221 -4055 
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Portions of the text (or '60' Micro Journal were 
prepared usnig the following lumished Hard/Sofl- 
wara: 

COMPUTERS - HARDWARE 

Southwest Tectinical Products 
2t9 W. Rhapsody 
San Antofiio, TX 78216 
S,9-S/BDMFDisk-C0St • 82 t?W- Sprint 3 Printer 

GIMIX Inc. 

t337 West 37th Place 

ChiCaQO. IL 60609 

SupwHWnfrafTW - 0S9 - FLEX - Assoded Hardware 

EDITORS - WORD PROCESSORS 

Tectinical Systems Consultants. Inc. 

1 1 1 Piovidenoa Road 

Chapel Hill, NC 275 1 4 

FLEX • Editor • Text ProcBssof 

SMo Software Inc. 

PO Box 916 

Idaho Falls, ID 63402 

Stylograph - Mail Merge - Spell 

Editorial StatI 

Don Wiillian j Sr Publisher 

Larry E, Williams Executive Editor 

Tom E. Williams Production Editor 

Robeit L. Nay Technical Editor 

Admlnlatratlva StaM 

Maiy Robertson Otticer Manager 

Joyce Williams Subscriptions 

Chiistine Lea Accounting 

Conlrlbtiling Edilora 

Ron Anderson Horm Comma 

Peter Dibble William E. Fisher 

Or. Vneo Elbeit Carl Mann 

•>. EM. Pass Rbn Voights 

Philip Luddo Randy Lewis 

Special Technical Pro|«cts 

Clay Abrams K6AEP 
Tom Hunt 
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Send All Correspondence To: 

Computer Publishing Center 

68' Micro Journal 

5900 Cassandra Smith Rd. 

Hlxson, IN 37343 

Phone (615) 842-4600 or Telex 5 106006630 

Copyrighted 1985 by Computer Publishing Inc. 

68' Micro Journal is published 12 limes a year by Computer 
Publishing inc. Second Class Postage Paid ISSN 0194-5025 at 
IHixson, IN and additional entries. Postmaster: send form 3597 to 
68' Micro Journal. POB 849 Hixson. TN 37343. 

Subscription Rates 

1 Year $24.50 U.S.A., Canada & Mexico Add $9.50 a Year. Other 
Foreign Add $12 a Year for Surface, Airmail Add S48 a Year. 
Must be in U.S. currencyll 

Items or Articles For Publication 

Articles submitted for publication should include authors name, 
address, telephone number and dale. Aiticles should be on 
either 5 or 8 Inch distc in STYLOGRAPH or TSC Editor format 
with 3.5 Inch column width. All disks will be returned. Articles 
submitled on paper should be 4,5 inches In width (Including 
Source Listings) for proper reductions. Pleaae Use A Dark Rlb- 
bonll No Blue ink!!! Single space on 8x11 bond Or better grade 
paper. No hand written atlicies accepted. Disks should be in 
FLEX2 SaOO or FLEX9 6809 any version or OS-9 any version. 

The following TSC Text Processor commands ONLY should 
be used: .sp space, .pp paragraph, .fi fill and .nf no fill. Also 
please do not format within the text with multiple apaces. We 
will enler the rest at lime of editing. 

All STYLOGRAPI-I commands are acceptable except ,pg page 
command. We print edited text files in contirwus text form. 

Letters To The Editor 

All letters to the editor should comply with the atxive require- 
ments and muat be signed. Letters of "gripes" as well as 
"praise" are solicited. We reserve the right to reject any submis- 
sion tor lack ol "good tasle" and we reserve the right to define 
"good taste". 

Advertising Rates 

Commerctal advertisers please contact 68' Micro Journal adver- 
tising department for current rate sheet and requirements. 

Classified Advertising 

Ail classified ads must be non-commercial. Minimum of $9.50 for 
first 20 words and .45 per word after 20. All classifieds must be 
paid In advance. No classified ads accepted over the phone. 
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..HBAR ye, HBAR 

OS-9" 
User Notes 



By: Peter Dibble 
As Published In 68 Micro Joarnal 



The publishers of 69 Hlcro Journal are proud to announce the 
publication of Peter Dibbles 0S9 DSKE ■OTES . 

laforMtioB for the BBCIMIISC to the PRO, 
■egnLar or CoCo 0$9 

Dalng 0S9 

HELP, HINTS, PROBLEMS, REVIEWS, SUGGESTIONS, COMPLAINTS, 0S9 STANDARDS, 
Generating a New Bootstrap, Building a new System Disk, 0S9 Users Group, etc. 

Prograa Interfacing to 0S9 
DEVICE DESCRIPTORS, DIRECTORIES, 'FORKS", PROTECTION, "SUSPEND STATE", "PIPES", 

'INPUT/OUTPUT SYSTEM", etc. 




Prograailng Langnagea 
Assembly Language Programs and Interfacing; Basic09, C, Pascal, and Cobol 
reviews, programs, and uses; etc* 

niaka laclade 
>e typing all the Source Listings In. Source Code and, where applicable, 
assembled or compiled Operatlag Prograaa. Tbe Source and the Dlscuasions in 
the Columns can be used "as is", or as a "Starting Point" for developing year 
OHM more powerful Programs. Programs sometimes use multiple Languages such 
as a short Assembly Language Routine for reading a Directory, which is then 
"piped" to a Baslc09 Routine for output formatting, etc. 



BOOK 



Typeset — w/ Source Listings 
(3-Hole Punched; 8x11) 

Delaxe Binder --- _____ $5.50 



$9.95 



. , , o T • X • -. • , 1 8" SS, SD Disk SU.95 

All Source Listings on Disk 2 5" ss, do Disks $24.95 

Shipping and Handling; $3.50 per Bo*k, $2.50 per Mak Set 

* All Currency in U.S. Dollars 

Foreign Orders Add $4.50 S/H (Surface) or $7.00 S/H (Air H«ll) 

If paying by check - Please allow 4-6 weeks delivery 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, IN. 37343 



IM - OSV It ■ tr*d.*4rk Q^ KIcrvwar* Sjstcaa Corp. and HotoreU Inc. 
TM - M* Wcia JeufWt !• • tr.4«aark o( Cx^put.r ruliUaldnc Inc. 



(615) 842-4600 
Telex 5106006630 
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\^ __v£0 Super SBC 





■in 




HDSIMC-020 SyaccB Pile** 

Effactlva Noveabtr 1983 

Nattt*s-020 StC, wired 4 taatad wlcb 4 DB2S 
Strlal port* pr«-«lr«d, rttdy Co Inscall with 
your cablnac, F/S, CKT •nd drive* *27M>.00 

N020 C«bt««C aad P/S, for H<iaC«ag-020, !•** 
cablaa $2t9.9S 

M020 Cablaa, dual (loppy or wlnchaacar, apaclCy 
which - (loppy or wlnchaatar $J9.9S 

MD2QrC floppy caVloac and P/S> holda aod powara 
2 thin-Una flopplaa $79.95 

M>20r Floppy, 80 track. DO/DS $269. 9S 

OS-9, SPECIAL lkiataas-02Q vaialoa $3i0.00 

NCMMlP/P co-procaaaor $49S.OO 

10 Nssabyta Wlnchaatar $«9).00 

20 Nssabyca Wlnchaatar $895.00 

macbaacar Coatrollar (labac-OCIU $395.00 

Nota: (or ordara o( coaplata ayata— (Mjacaog- 
020, cabloac i P/S, dlak drlvaa and OS-9, 
daduct iZ (roa total packaga. (lladtad clac 
of(ar) Sc* oppMlca paxa. 

** Spadal Vlachaatar lotlu ** 

Tha iiuatao(-020 davlca daacrlptora will allow 
you to uaa practically AV7 wlnchaatar drlva 
aupportad by XE8EC or OHTl concroUara. 



locluda: S3. 50 SIC, cablai only S/li. Cablnaca 
Includa $7.50 S/H. Coaplaca Syataa Includa 
$20.00- All chacka auac ba In USA fuada . 
Ovaraeaa apacKy ahlpplng Inatructlona and 
aufdclaac (unda. 



He Proudly Announce Che KUSTANC-020 Super SBC 

"The one with the SKAL KICXl" 

Only from DATA-COMP 



This Is Che NCC, world beaCer CMX SBC, In a super 
conflguraClon. Data-Comp has mated It to a 
power plus power supply/ stylish cabinet and your 
choice of floppy and/or hard disk drives. 
Available In several different configurations, (l) 
single board. (2) single board and regulators for 
your cabinet or mainframe and power supply. (3) 
single board - power supply and cabinet - your 
disk drives. (<i} single board - power 
supply/cabinet - our drives configured to your 
specs, and ready to run. 0S9 68K will be 
available as well as several other popular 
operating systems. Also all the popular 0S9 68K 
software and Motorola 020-BUG will be available 
at a very reasonable price. 



-/ 



Note: We will Include the Motorola 020-BUG at no 
additional charge. This Item alone sells for 
$500.00. This allows direct coding of 68020 
advanced codes. 020~BUG Is required for our 
version of 0S9. Please bear In mind, this system 
Is the one others are compared to. 

This system Is the state-of-the-art star-ship. 
It runs rings around any other 68XXX SBC, and 
most mainframes. The speed and expanded RAM 
make this the "best buy*' by a far stretch! A 
true multi-user, multi-tasking computer. So far 
advanced Chat even the experts don't call It a 
micro. Compared Co the others. It Isn't even a 
"horse race." And the price Is certainly right. 
You can bet on this one! 

So, will It be Ttirtle or Thoroughbred? 




Mu8tang-020 Is trademark of Data-Conp-CPI 



DATA-COMP 

5900 Cassandra Smith Rd, 
Hixson. TN 37343 



SHIPPIN6 

USA ADD 2X 

FOREIGN ADD SX 

niN. t2.SO 



(615)842-4600 

TCLCX 5106006630 
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MuBtang 020 Features 

12.) rou. »C6 020 fv^ 32-Blc vld« PACh Frotcaaor 

- 32-bU wldi nor)-«ultlpl«Ktd dat« A addriCfl buiea 

- On-chip Instruecloa caclw 

- Objact-code coapstlblc with earlier H6fl000 fcxtty 

procaaiOTi (68000/68008/60010) 

- Enhanced lnatruc4:lon aet - Coproceaaor Interface 
Upclonal 68881 rioatlng pcLnt Coproceaaor (12. S MMi> 

- Qlr«ct escroalon of 68020 fnacructlon a«t 
' riUl lupport of IKKK P7^4, draft 10.0 

- Tranat endantala and other aach functlona 
2 Nagabftea of XJUt (4l2K n 32-blt orKanlxatlon] 
Up to Z)6C byt«« of sriW (64x X 32-blta) 

- Uaea four 2764, 2712B, 272)6. or 27^:2 er«W(a 
4 AaynchroQoua »arlal I/O porta (2 k MC68681 OUART) 

- Software pro<|r«SHbla baud rate* to 19*2)! 
' 5t«nd«r<J ltS-232 Interfaca 

- OpcloQal network Interfaca on one port 
Buffered 4-blc I>arallel t/0 ft>rl (1/2 MC68230) 

- Cent root ca-tjrpe parallel printer plnout 

- Hay aLao be (i»ad mm parallal Input f»art 
Bapaaaloo Coaaactur for Addltlooai I/O tevlrea 

- l6>'bU data path 
~ 2)6 byte addreaa apace 

- 2 lotarrupt Inputs 

- Clock and Control Slgnala 
Tlveof-Day Qock/Calaorfar w/battcry backup 
Concrotlar for up Co Two ) 1/4" Floppy IHak Orly** 
~ Single or double aided 

-* Single or double denaltjr 

- 48 or 96 tracka per Inch (40/80 Track) 
Hounta Directly Co a Standard ) 1/4" DLak Drlv« 
SAII Eatarfaea for IntaUlgant Hard Olak ConcroUera 
Prflgraaaable Ftorlodte Incarrupt Generator 

- For tlH«-aUclng and real-tlw* appUcatlona 

- lotarrupt ratea froa Blcroaacooda to aeconda 
' iHthlY Accurate tlsebaae (S PPH) 

S~bit aenae awltch. readabla by Cba proceaaor 
Hardware alngle-atap iiapabLllty 

' Aod ttany other advanced featurea not found on other 
pTietd aui:h tilglier. 



NUSTAIU-020 kcuclmrU 




TlK Svcoinla 




1>pc Sprites 12 bi[ 


Seglacar 


Iqc . Loop 


Lo.lt LmP 


IlK AT IXM Xi-sii Sy ] S.7 


No Icflatcr* 


AT&T 7X)0 VNU PC tsoio ;.2 


*.3 


DKC VAX II/7S0 VNU krklcf 4.2 ].6 


1.2 


D«C VAX 11/750 - - » i.i 


3.2 


tSOM OSS fcSC a RU l«.0 


9.0 


68000 ■ ■ 10 lOu >,.•> 


t.O 


MUSTAIKM)2a 11020 MiSSXI 0S9 16 lOu ].2 


0.88 


MUSTAK;-a20 68020 HCASMI VNirLtl ■ 1.8 


1.22 


C loot • ror I • 1 to «n.991 




L** 




KallxlEd Mir HUSTA1IG-U20 • J ."i 


Mir 


Mstorola Spacm: lu-it up to 7 MIF - 


16 Ifca 


lk>t<: Tb« mtmai.ri XUS t»;^10 1. ao« »al>ab 
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FLEX " USER NOTES 

THE 6800-6809 BOOK 

By: Ronald W. Anderson 
As published in 68 MICRO JOURNAL" 



The publishers of 68 MICRO JOURNAL are proud to announce the pubticalion of Ron Anderson's FLEX USER NOTES, in 
book form. This popular montfily column has been a regular feature in 68 f^lCRO JOURNAL SINCE 1 979. II has earned the 
respect of thousands of 68 MICRO JOURNAL readers over the years. In fact, Ron's column has been described as the 
'Bible' lor 68XX users, by some of the world's leading microprocessor professionals. Now all his columns are being 
published, in whole, as the most needed and popular 68XX book available. Over the years Ron's column has been one of 
the most popular in 68 MICRO JOURNAL. And of course 68 MICRO JOURNAL is the most popular 68XX magazine 
published. 

As a SPECIAL BONUS all the source listing in the book will be available on disk lor the low price of; FLEX '" format only — 5 " 
$12.95 — 8' $16.95 plus $2 50 shipping and handling, if ordered with lheboo>< If ordered separately the price of the disks 
will be: 5" $17.95 — 8" $19 95 plus $2.50 shipping and handling, 

Listed below are a few of the TEXT files included in the book and on diskette. 

All TEXT files in the book are on Ihe disks. 



LOGO.C1 

MEM0VE.C1 

DUMP.C1 

SUBTESTC1 

TERMEMC2 

M.C2 

PRINT.C3 

MODEM.C2 

SCIPKG.C1 

U.C4 

PRINT.C4 

SET.C5 

SETBAS1.C5 



File load program to offset memory — ASM PIC 
Memoiy move program — ASM PIC 
Printer dump program — uses LOGO — ASM PlC 
Simulation of 6800 code to 6809, show differences — ASM 
Modem input to disk (or other port input to disk) — ASM 
Output a file to modem (or another port) — ASM 
Parallel (enhanced) printer driver — ASM 
TTL output to CRT and modem (or other pod) — ASM 
Scientific math routines — PASCAL 
Mini-monitor, disk resident, many useful functions — ASM 
Parallel printer driver, without PFLAG — ASM 
Set printer modes — ASM 
Set printer modes — A-BASIC 
(And many more) 



"Over 30 TEXT files included in ASM (assembler) — PASCAL — PIC (position independent code) TSC BASIC-C, etc. 

NOTE: ,C1„C2, etc. = Chapter 1, Chapter 2, etc. 

This will be a limited run and we cannot guarantee that supplies will last long. Girder npw^for early delivery. 

Foreign Orders Add $4.50 S/H 
Softcover — Large Format 

Book only: $7.95 + $2.50 S/H ] 

With disk: 5" $20.90 + $2.50 S/H | 

With disk: 8" $22.90 + $2.50 S/H 

See your local S50 dealer /bookstore or order direct from: 








Telex 5106006630 



Computer Publishing Inc. 

5900 Cassandra Smith Rd 

Hixson, TN 37343 




(615)842-4601 

'FLEX is a lra<l«marti ol Tftct^nical Systems Cansultaols 
January 86 
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Nore Raadar Feedback 



I've reeelvad a few oore letters (Voa raa ers, now sane 
thraa months after ay request for faadbaek, Tha one 
common note In virtually ill of them has bean tha request 



has been pointed out to ■« that most of the FLEX users 
don't have the 'Advanced Progranoer's Culda". I do recall 
that I didn't get one with my original FL£X froa SUTPc but 
Shortly after receiving FLEX, I received an ad Indicating 
that 1 could purchaaa a copy for t25. I did so 
laaadlataly. The story Is that SHTPc never did supply it 
with their version of FLEX. TSC started nearly 
Immediately Including It with their FLEX manual. Don 
UUUams estimates that about 20t of all FLEX users have 
that Manual. I'm going to ask Don to tell you here 
whether It Is still avaliMle anywhere (e.g. fr«a TSC 
directly or fYom SUTPc). 



*Don's Answer 
from S.E. MEDIA 
all,' 



the advanced progranmers guide Is available 
■ price I?5.0S * »2.5'S/H = $27.50 In 



If It Is not to be had, we will Just have to start 
discussing the subjects covered In It here In this 
colian . 

■Don's Answer #2: Let's save them the S27.50 and discuss 
it here. O.K., fellows (and gals)'?' 

Several readers sent responses that ware not really 
responses to ay questions In the June column but 
reouasta for information. I have tried to answer as aany 
of thoae as I could by mall. I honestly don't think there 
were many specific questions of general Interest that I 
have not mentioned nere. I received a letter Vrom Kent 
Heyers yesterday to tell ma that I gave a wrong answer In 
the September column to the person who asked advice on 
how to get OS-9 up on a SWTPc system. (I prefaced ay 
answer nth tha statement that I was tha wrong parson to 
ask about 0S~9) ■ Kent tells ma that Peripheral 
Teennoloay has a version of OS-9 that runs on their PT-69 
system ri was aware of that) and therefore will run on 
SUTPe hardware (I didn't make tha association as I should 
nave) . Kent didn't go on and elaborate on that, but I 
know that the FLEX that will run on the PT-69 will also 
run on a SUTPc system with tha DC.t type disk controller. 
I suppose OS-9 would require that level disk controller 
also. 

Editors 

I've essentially finished my little editor project's 

'St phese , that of getting It written and debugged in 

PL/9. I'm happy with it, it Is Just what I aluaya wanted 



first phase, that of getting It written and debugged in 
PL/9. I'm happy with it, it Is Just what I aluaya wanted 
In an editor. I've done all tha things I told the other 
suppliers of editors they ought to do to laprove their 
product. <Only two listened Co my coMcefits and actually 
changed their software). Reports of the possible market 
among 6809 users ere disappointing, but I suppose I would 
have done this for my one amusement anyway. I em going 
to sand out sone copies for testing and connents. You 
nay see e review in '6S' If tha response is positive 
enough to convince Don UlUisns to market It through 
South East Media. 

■Don's Answer #3: S.E. MEDIA has already accepted "PAT" 
the Ron Anderson editor. IF you ever wanted the famous 
"PIE" tett editor, well this wUl sure aakt your day. It Is 
a lot like It, only bettarl See S.E. MEDIA catalog, this 
Issue or nett.* 

Tandy 

Tha following is not directly related to FLEX Users, 
and you may aiprass your dlspleisurt to me If you wish, 
for my taking up space here, but I think It Is ralivint to 
cosputlng, and It gives you a point of rafaranca with 
regard to how wa are traeted by our 6SXX suppliers in 
generel. I suppose you could call this an "open letter" 
to Tandy. 



As most of ay readers know the coapany for which I 
work bought a Tandy 1200-HO I8H coapatlble coaputar In 
January of this year. Ue Immediately had problems trying 
to run soaa third party software thet hed run fine on an 
IBM PC, After wecKft or frustration with Tandy telling us 
that the problem must be ours, they rinally adnltted that 
there were some bugs In their monitor ROH3 end In the 
than current version of HS-DOS. I have a letter froa 
Dallas dated Hay 1O In response to my request that they 
allow us to test their "fix" of tha bug. The latter 
essentially says that tha patch will be available any day 
now, and wa wouldn't get the bug fixed any sooner by 
baconlng a test site for Tandy. 

Ue had heard nothing further regarding tha n> by the 
beginning of July, so we asked tne local Redlo Shack 
about the stetus of It. Ue ended up cilllnit Delles end 
were given a part number under which to order the fit. 
On Auguiit 1, we called the Radio Shack again to be told 
that the fit was not yet In but thet they would look Into 
It. After a day of phone calls again, we found that It 
had been available for a aonth, under a different nunber, 
and that Tandy has classified It as an "upgrade" and that 
we are supuosed to pay %ib Tor the parts and their labor 
to install tn« ROMs. 

At this point we are seeing purple. The fit Is 
perhaps Incorporated in an upgrade to their system, but 
the system simply doesn't work es It was suupoMd to fro« 
day 1 without the "upgrade". At this point I'd hsve to 
conclude that the aaart thing to do would be not to buy 
computers froa Tandy. Of courac $35 Is a trivial laiount 
to pay for tha cure of the problea. Ua spent sooathlng 
more than the cost of tha coaputer on salaries for people 
fooling around and trying to find "our problem" In the 
aystem not working properly in tha first place. Tha fact 
that Radio Shack wants to CHARGE us for the fix Is just a 
case of adding Insult to Injury. Don't get me wrong, the 
1200-HD Is a terrific buy, and It works fine If you don't 
try to use tha part that doesn't work. (The serial port 
works fine until you try to use the handshakes, than the 
computer dies Instantly). On the promise that the 
problem was known and the fit was (torthconlng, wa bought 
two more of them and they have bean reliable except Tor 
the above mentioned problea. 

Our displeasure Is therefore not with the coaputar but 
with the organization and their user support. Though 
they seee Meil equipped to nan le custoaar service In the 
vain of "which softuare suits ay neada best?" and "Uhat 
cable do I buy to connect a aodel XYZ printer to my 



computer?" There seems to be no provision for handling 
legitimate bug reports. Ua have continually (bund that IT 
we talk to four people In tha Tandy organization ue get 



five different stories, and that three of thaa have 
changed their story by the next dayl Coaa on you guys) 
Tou have an alaost great product at "the lowest price In 
town". Uhy can't you gat It together and give your 
custoaers sone servlcaTT? 

■Don's something or another ll: Sounds like stuff I have 
bean saying for years. Haybe you sorts understand now 
why we (bide a. In the black, Tandy oriented aega^ne. I 
got tired of hyping an outfit that was all grin and 
teeth. I owed my readers mora. And as a consultent 

fuess what I tell clients. Maybe there are soma others 
Ike myself who can't be brow beaten. Cosh, I also wonder 
why Tend/s computer market ahare fall ao fi<st In the last 
year or so? Huh? 

Don't think I've got ■ lock on things though. I once, 
years ago, bought an Edsel. Don.* 

Peripheral Technology 

Ua took our daughter Pan to Holland Michigan to Hope 
Collage last Saturday Pa« had bean using my old SWTPe 
system or the PT69 that I had set up alongside for the 
past couple years to do reports and tara papers. Uhan I 
offered to put a systaa together for her to take to 
collage tha Idea was received mora uaraly than I had 
expected. Ue found a used Heath H-19 terainal that has 
a cutout for a disk drive. I saw the ad for the ;/3 
height disk drives in '68' a few months back and ordered 
two for $S5. I figured I could aquaete an extra 1/3 disk 
drive Into that Heath case, and tAth the aid of saws and 
files, I Bsnaged to aake them fit (Just berely). I foun 
a power supply In tha Jaaaco catalog for $39.95 and 
ordered it. A nu Saturdays ago, I got down on the floor 
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(no room on any otnch ar«a in ay conputar roon), and 
hacked away. Bafora the day had paasad, I had the drives 
Installed via soae ho«e mta* braoVata, and had the power 
supply nounted and wired. 

I was a bit disappointed to sea that the power supply 
Interfered with the video a little, and Bore dlsapoolntea 
to find that the drives didn't seeia to read reliably. I 
started playing with ahleldlng between the power supply 
and the neck of the CRT, and found that a pttce or 
alunlnuia foil In a paper envelope , grounded via a clip 
lead and placed between the suuply and the CRT Just 
about ellalnated the problva wltti the video. I had the 
thought that aaybe the power supply was Interfering with 
the disk drive read heads, and put a shield over the 
drive as well. The read/write problems vanished . Later 
I found my old AC-30 cassette interface and did a little 
cutting and banding on the perforated cover to nake a 
shield for the entire power supply. (I guess I an like 
Chuck Adaffls - see letter In the September Issue - In 
that 1 never throw any coaputer equipiaent away either). 
•fS: 1 got two of theal . JtC-)Cs and entire 680<j 
coaputers in H19 cabinets, soae of the old and new - 
everything except printers. Don,* With the shield Ifi 
place and grounded, there Is MO interference with the 
video, and the drives work fine as well, I connected the 
PT69, ttuugh I didn't put it Inside the terninal case, and 
added an Epaon MX-90 that I had been using for a while. 
A few nights of testing the software, and wa ware all 
set. 

I expect a few phone calls with "How do I" questions 
but I tnlnk the systea will be quite reliable, and it. alj 
fit on a snail Ooraitory st/la desk in Paa'a roon. Or 
course 2 supplied ay own Editor and tact foraattar . 
Classes start tomorrow, and I expect by the end of the 
week to receive a call or two. Fortunately Holland is 
only about t60 alias away. Last year about this tlaa I 
helped the son of one of tne '68' readers who was here at 
the University of Hlchigan to aet his PT69 system going. 
Any readers over in the Holland area (HudsonvlUe, 
Jenison) who night be willing to help Pen In an emergency? 
Problainj are likely to Be procedural rather than 
hardware. 

FLEX Problem 

I found soaethlng rather hard to believe a few days 
ago. I've been adding fcaturaa to ay Editor, and added 
the ability to call a FLEX utility utiUe editing. I found 
that DIR <CkT) worked Just fine, but when I tried to LIST 
a file, though it aeeaed to mrk, I found that the editor 
crashed when I tried to eilt and save the file I was 
editing. The problen was traced to the standard, 
supplied with FLEX. LIST utility. It seeAS that the 
author took a shortcut and called the FLEX FHSCLS 



routine (fDt03) to close the file after listing it. 

> tne FLEX aanual, FHSCLS is an energency 

closes all open files. It can be called if « 



According to tne FLEX aanual, FHSCLS is an energency 
routine that closes all open files. It can be called if « 
program fouls up or a disk file is unreadable, or soae 
other terrible error occurs. 

In the case of ay editor, 1 open the output file at 
startup, and LIST was nicely closing it for ae though 
there was no error in the Listing process whatever. I 
dlsassenbled LIST.CMD and changed the exit to close the 
file noraally even in case of an error. There is no harm 
done if the file can be cloaad, and if it can't using 
FHSCLS won't close It any "better". That way, the error 
aessage fron LIST Is stUl reported, and an error auch as 
"FILE NOT FOUND" won't bomb the saving of the file being 
edited. 

Perhaps you have noticed that with LIST, if you specify 
line nuabers, you get nuabera in the foraat Sj.OOi 
followed by the line of text. That foraat for line 
nuabers la eoapatlble with the old TSC LOIT prograa, but 
aoat of ua haya different editora now. I changed the 
fora to the line ntaibcr followed by two spaces, as In "33 
■. I like it auch better. I will aupply the reworked 
LIST utility with ay editor 

Software 

A few aonths ago I wrote a bit here about trying soae 
editora for the Tandy (IW PC Clone) eyetea. I armtloned 
one particularly bad one and that I had sent a latter of 
coaplaint to the supplier and to PC Uorld Hagaxlna, 
Several aontha have gone by and I can report tnat the 
supplier didn't bother to respond to ay letter. PC World 
has not acknowledged the letter to thea either, let alone 
printed it, though the tiae has been considerably shorter 
since I wrote thea about the problea. 

As a aatter of record. I have NEVER been Ignored by a 
• uppller of FLEX software. Including Jack niaenHay way 
back when I bought Strubel, I wrote Henenway Assoolates 
a rather negative letter, and Jack hlsaelf called ae to 
discuss ay criticisns. When the conpany bought 
Stylograph, Bob Bundy, the author, replied to ay letter, 
but not only that, he aede a few changes in Stylo at ay 
suggestion. He explained that one or our probleaa was 
due to the hardware of the CT-8212 teralnal we were 
using, I bought Lucidsta Paacal way back, and I atUl 
correspond with Nigel Benee now and then. Iff letter to 
hla was noat enthusiastic, and waa later quoted in their 
ad in '68'. The coapany bought QaagaSoft Paaoel, and we 
reported a few bugs. Th«a« were au cured very quickly. 



and we continued correspondence with Bob Reiailler at 
OnegaSoft for soae tlae. I nentlon these In particular, 
because they all happened BEFORE I began to write Ibr 
'68', so I was "Just another customer" at the tlae. 

A little later, when Uind rush started selling PL/9 I 
was sent a copy for review, 1 now correspond tdtn author 
Grahan Trott and Bill Dickinson at Windrush in England. 
I have also spoken to Janes HcCosh, author of the *C* 
compiler FLEX version sold by Windrush and OS-9 version 
sold by Mcroware. I have had soae contact with virtually 
every suppUer of 6809 software (even Bruce Dugger of 
Dugger's Gruwlng Systems, whose software was a disaster). 
■CoshI - #6: Ron, it got better, sorry he didn't have it 
right at first, we needed a good C then, got a couple 
good 'una now. Don.* I'd like to think that my input 
encouraged the suppliers and authors to Improve their 
software, I'm not used to being Ignored, and I don't 
like it at all. We 6809 users ARE fuokyll 



IS FLEX ROHHA8LE7 

One of the response letters I received recently 
mentioned that the writer was thinking about a ROM 
version of FLEX. 1 wrote back that it would be a very 
large project, FLEX Is so full of locations that aust be 
UAH, that sone clever approach would have to be taken to 
make it compatible with the standard version. Address 
$0000 to tCOTF are used fbr the system stack when FLEX 
Is running. COvO to COFF are the input buffer used to 
store the command line that you typed In. tC10 to tC6FF 
ts RAH into which most FL£X Utilities are read and froa 
which thty are executed. This area is called the "Utility 
Coaaand Space". SC700 to tCS3F is supposed to be a (lie 
control block connected with Print Spooling, but I 
understand that soae SWTPc versions of FLEX have sone 
code In this area to sake print spooling work. 

To continue, SC840 to tC9TF Is the "systea FC8" area, 
the place used by FLEX as a file control block to load 
the Utilities. tC980 to ICBFF are two file control 
blocks used in conjunction with the I.CMO and the O.CHI). 
We're now through jK of Fl£X and there Is a aost no code 
Flex a. 

kjrklng drive. System DATE registers, 
etc.) are located froa fCCOC to KCBF. The Printer 



yet. How the FLEX system parameters (TTYSET values. 
Pause, Systea Drive, Working drive. System DATE reKlstera, 
Lc.) are located froa fCCOC to KCBF. The Printer 
Drivers are located n-oa SCCCO to SCCFF. So far, all of 
this has to be RAM. Starting at tCOOO through tCb^E are 
juap tables into FLEX. Various versions of fX£X have the 
alfferent routines at different locations, but these JUHP 
VECTORS are always In the saae place. Some of these 
vectors are HODIFIED by FLliX as it runs. For example the 
OUTCH Juap at SCOOF is modified when you output to a 
printer. It therefore must be RAH also. The Code ft'om 
»CDIIC through S03FF is the code Ibr all the routines in 
the Juap table, such as RPTERR the error reporting 
routine, PCRLF, to print a CR and LF, CETFIL to get a 
file naae from the coaaand line, INDEC and OUTDEC to get 
a daciaal nuaber in froa the coaaand line and print it 
out respectively, and several others. $D400 TO ICDFF is 
the File Hanegeaent Systea code, and tDEOO to tDFFF is 
the disk hardware driver code space. 

I think ay point la aade that a very large part of 
FLEX HUST be in RAM. Since wc can't Intersperse RAH and 
ROM on an address by address basis, there Is little of 
FLEX that would b« ronnable. One poasibUity that I can 
think of would be to put FLEX In ROH at soae high address 
(extended address, using the DAT, that is), and fix the 
start vector In the monitor ROM to call a routine to 
download FLEX froa ROH to its noraal location in RAH, and 
Juap to the coldatart location. That would be faster 
than booting it froa a diak, takes no extra aeaory 
(unless you had a full aagabyte of RAK iapleaented via 
extended addreasln^}, anif would relieve tlie systea disk 
froa havlAg to have FLEX on it. 

You might wonder why FLEX was written in this way so 
that it is so hard to put in RON. When FLEX was written, 
the EPROH was not yet a practical reality, the Monitor 
Koms were naik prograaaed, a process that haa a very 
large set-up cost and a reasonable per unit coat. No 
one, I'a afraid, gave second thought to the poasibUlty of 
aoaeday putting fXEX In a ROH. If they had thought about 
the passlbillty, it would have been fairly easy to write it 
so all the variable perts of FLEX were in one contiguous 
blook and all the fixed parts were in another contiguous 
block. I suspect it would have turned out approi laately 
so that |CO0O to tCFrr would be MM and SDOOO to IDFFF 
would be RON. There would have t« be soae additional ROH 
soaewhere with routines to initlalixe the RAH to noalnal 
values, which is now done by loading data into the 
variable area. Of courae one oould writ* an operating 
syaten almllar to FLEX now, with variables and prograa 
separated so that the prograa part would be roenable, 
but It couldn't be aade conpatlbl* with FLEX or any or 
the software that runs under FLEX, so it would not be a 
very fruitful tsak. 

Well, I've used a question about FLEX as a ruse to give 
you a quick aeaory aip of the various parts of FLtt. 
Parhapa one of these tlaaa we will get lnt« 
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This chapter dlacussea Che use of randoo file acceaa 
funcclona In Che C language, wtch pardcular accenclon 
: CO Che uee of Che HcCoah C randoa file acceaa funcclona 
] under FLEX. Ic llluacrdCea Che uee oi cheae funcclona 
, ulch an exaaple program. 

j KANDOH FIL£ ACCESS IN C 

I Since randoa file acceaa la aoaewhac aore coaplex than 
f aequenclal file acceaa, chere la a reluccance of aany 
J prograaoera Co uee Ic In aany appllcadona In uhlch Ic 
ahould be uaed. Thla aecclon dlacuaaea randoa file 
' acceaa and acceapca to reaove aoae of Che ayacery 

iaurroundlng tc. 
Kandoa file acceaa la noraally provided In C language 
laplenencaclona ulch four funcclona: "faeek", "fcell", 
I "laeek", and "rewind". All excepc "laeek" work wlch 
I file polncera; "Iseek" worka wlch lower-level file 
' deacrlpcora. 

I Each funcclon la deacrlbed aeparacely, Chen chelr 
coablned uaage la dlacueeed. Noce chac Che conaenca 
abouc Che uaage of Che funcclona under FLEX la 
reacrlcced Co Che HcCosh C coapller, aa Ic la Che only 
lapleaencadon which currencly aupporca randoa file 
acceaa under PL£X. 

faeek(f llepcr, offaec, place) 
FILE tfllepcr; 
long offaec i 
Inc place; 

Ihe "faeek" funcclon acceapca Co repoalclon a file auch 
chac Che nexc characcer read froa or wilccen Co a file 
la ac a apeclfled offaec. The aecond paraaecer la caken 
aa an offaec froa Che following polnce: 

place polnc 

beginning 

1 currenc 

2 end (noc for FLBX) 

The offaec froa Che end of Che file la noc allowed In 
PLKX becauae Che lack of a byce counc for Che leac 
aeccor In the Fl£X dlak foraac lapllea an uncercalncy of 
exaccly where Che end of a FLKX dlak file really la. 
The uae of "faeek" la noc allowed on a aequenclal FLBX 
file open for wrldng elnce FLEX doea noc aupporc Che 
excenalon of an exladng aequenclal FLSX flla. 

The HcCoah lapleaencadon of "faeek" for aequenclal FLEX 
fllea la aoaewhac Inefflclenc, aa Che FLEX file 
acruccure doea noc aupporc Che randoa addresalng of 
aequanclal fllea. The lapleaencadon for rendoa ?t£X 
fllea la noc aa Inefflclenc, aa FLEX aupporca randoa 
ecceas, alchough aoaewhac crudely. In chla caae. For 
locaclona forward In a aequenclal file froa Che currenc 
locaclon, "faeek" reade each byce uncll Che byce before 
Che dealred one haa been read. For locaclona backward 
In Che file, "faeek" flrec rewlnda Che file before 
reading Che bycea Co be eklpped. Even chough Che HcCoah 
aaoiial Indlcacee chac "faeek" worka wlch buffered fllea, 
Ic currencly worka only wlch unbuffered onea. 



long fcell(fllepcr) 
FILE 'fllepcr; 

The "fcell" funcclon recurna Che currenc offaec reladve 
CO Che beginning of Che file. Thla la noraally Che 
nuaber of bycea required Co be aklpped Co reach Che 
currenc byce poalclon froa Che beginning of Che file. 

rewlnd(f llepcr) 
FILE *fllepcr; 

Itie "rewind" funcclon repoalclona a file ac Che 
beginning. Ic la equlvalenc Co 
"faaak(f llepcr, (long)0,0)". 

long laeek(f lledeac, offaec, place) 
Inc f lledeac; 
long offaec ; 
Inc place; 

The "laeek" funcclon la uaed Idenclcally Co Che "faeek" 
funcclon excepc chac Ic la uaed wlch low-level l/O and 
chac Ic recurnj Che currenc offaec Inco Che file. 

To obcaln Che equlvalenc of Che "fcell" funcclon wlch 
low-level I/O, "laeek" aay be called aa 
"laeek(f lledeac, (long)0,O". 

To obcaln Che equlvalenc of Che "rewind" funcclon, 
"laeek" a«y be called aa "laeek(f lledeac, (long)0,0)". 



The following prograa deaonacratea aeveral of Che 
funcclona juac deacrlbed. Ic aay be applied Co any cexc 
file wlch aC leaac abouC cen recorda. 

/* daao prograa for randoa file acceaa funcclona */ 

^Include <acdlo.h> 
f Include <ccypeih> 
oalnO 

{ 

char buf[2S6I; 

FILE *fpj 

long la, fcellO; 

pfllnlcO; /* required for HcCoah C •/ 

prlncf("cellaeek ceac\n"); 

If ((fp - fopan(argv[l). "r")) — NULL) 

exlc(l): 
eecbuf(fp,HUU.); /* required for HcCoah C */ 
prlncf("callaaek file openVn"); 
prlncf("Xa",fgaca(buf , 2S0, fp)); 
prlncf("ta",fgeca(buf , 250, fp)); 
priACf("celL»eek fcell - I0eix\n", 

Ix • fcall(fp)); 
prlncf("Xa",fgaca(buf , 250, fp)); 
prlncf("Xa",fgata(buf, 250, fp)}; 
prlncf("tallaaek faaek X081x - X04x\n", 

Ix, faeek(fp, Ix, 0)); 
prlncf("XB",fgeca(buf , 250, fp)): 
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prlncf("Xa".fg«ca(buf , 2)0, fp)}; 
prlncfC'cellaeek fcell - Z081ic\n". 

fcalUfp)); 
prlatf("c«ll«eali faaek ZOBlx - ZO«it\a" 

Ix, feaakCfp, Ix, 0)}i 
prlocfC'callaeafc fcall • X081x\n", 

fcalUfp)): 
prlncf("Z«",fgata(fauf , 2S0, fp)); 
prlncfC"Z«",fgeta(buf , 250, fp)); 
prlncfC'callaeak rawladVn"): 
raulDdCfp); 
prtacfC'callaaali fcell • Z081x\n", 

fcall(fp)); 
prlocf("Za".fgaca(tauf. 2S0, fp)); 
prlacf("Za",fgati(buf . 2S0, fp)); 
axlc(O): 



In aone appllcaclona , cha ovarhaad aaaoclacad wlch cha 
FLEX HcCoah C raodoa flla accaaa funcclona, when appllad 
CO aaqucodal fllaa, aay ba prohlblclva. Tha uaa of 
FL8X raadoa fllai aay ooc ba approprlaca la many 
appllcaclona, ao an alcarnaclva which avolda boch would 
ba uaaful. 

Tha replacaaanc funcclona provided balow for "fcall", 
"faaak", and "raulod" avoid cha ovarhaad aaaoclacad wlch 
cha corraapoadlng acaodard funcclona, buc ara aora 
llalced In uaaga. They allow cha dlracc accaaa Co any 
byca In a flla wlchouc paaalng ovar Incaraadlaca bycaa, 
which la Buch faacar Chan cha alcarnaclva, Thay may ba 
alao ba uaad In varalona of NcCoah C for FLEX which do 
eupporc cha raadoa flla accaaa funcclona daacrlbad 
aarllar, Thay may ba uaad In Incrol C, If you can 
auccaaafully add cha aqulvalanc of cha "flaxfaa" 
funcdon CO cha Incrol C library, 

Tha primary reacrlcclon la chac cha "offaac" paraaacar 
for "faaak" la a long Incagar, buC la noc a byca counc , 
and Buac ba cha raaulc of "fcall", Tha "placa" 
paraaacar auac ba xaro, ladlcaclng poalclonlng froa cha 
cop of cha flla, Thla allowa cha dlracc poalcloalag of 
a flla CO a apaclflc byca, buc cha flla auac be elcher 
reed or prepered flrec. Tha loag Inceger is eccuelly 
coapoeed of Che drive nuaber, creek nuaber wlchln drive, 
eeccor nuaber wlchln crack, and byce nuaber wlchln 
aeccor, providing en ebaoluce, noc reladve, deecrlpclon 
of Che byce poelclon. 

An elcernaclve Co chle cechnlquc would be Co require 
chac Che file ba ellocaced conclguoualy end eequcnclelly 
end wlchouc coapreealon. Then Che addrcee of A byce 
could be coapuced dlreccly, knowing Che nuaber of 
eeccore per crack. Tbla le execcly Che cechnlquc many 
alnl-coapucer opareclng eyeccaa uaa Co eupporc e fora of 
reodoa ecceee Co ocherwlae itwquenclel fllee. Of couree, 
chere ere many ocher cachnlquae which ere uaed Co 
eupporc crue byce-adureeeeble file ecruccuree. 

/* Che following Include end funcclona replece 
fuacclone of correepondlng niaae provided 
In Che FLBX HcCoeh C Sceadard I/O Llbrery •/ 

llnclude <flex.h> 

long fcell(fp) 
FILB •fp; 
{ 

Cher 'p, 'q; 

long Ix; 



p - gec_fcbCfp); 
q - *lx; 
•q - '{p ♦ 
•(q ♦ I) - 
•(q ♦ 2) - 
•(q ♦ 3) - 
recurn Ix; 



0x03) ; 

•(p ♦ Oxie); 
•{p ♦ Oxlf); 
•(p ♦ 0x22); 



feeekCfp, offeec, piece) 

FILE •fp; 

long offeec; /* auet be froa fcell or tero */ 

loc piece; /* auec be aero */ 

( 



Cher *p, 
Inc ree 



■q; 
0; 



If (piece) 

recurn (-1); 

p - geifcbCfp); 

q - 6of f eec ; 

If (('{p + 0x03) 1- 'q) 
(•(p ♦ Oxle) )- '(q 
(•{p ♦ OxJf) I- '(q 



D) II 

2))) 



i 



It ('(p 

ree 



+ 0x02) -- 0x02) 
- flextma(p, OxGe); 



l)i 
2); 



If ('(p + Oxlf)) 

I 

•{p + 0x03) - 'q; 
•(p ♦ Oxle) • '(q 
«(p + Oxlf) - '(q 

» 

elae 

( 



•(p + OxJe) - '(p ♦ Oxll); 
•(p + Oxlf) - '(p ♦ OxJ2); 
•(q 4^ 3) - 0x00; 

I- flexfaeCp, 0x09); 



} 
ree 



I 



•(P 
•{p 
recurn ree; 



+ 0x22) - '(q ♦ 3); 
* 0x3b) k- 0x80; 



gee fcb polncer 
gec funcclon code 
reaaaber funcclon code 
eec funcclon In fcb 
zero recurn code 



cell flex fae 



rewlnd(fp) 
FILE •fp; 
1 

recurn f aaekCf p,(long)0,0} ; 
» 

flexfma(fcb. fen) 
Ice *fcb, fen; 
{ 
leea 

Idx $06, e 

Ide $09. a 

Idb ,x 

aca ,x 

clr $08. a 

clr $09. a 

peha b.x 

Jar $d*Ob 

pule b,x 

bcq f_l_x_ 

dec $08ie 

dec $09, a 

f_l_K_ 

tcb ,x 

lendeaa 

recurn fen; 

) 

Thla la cha beginning, noc Che end, of Che Informaclon 
on Che uaa of raadoa file ecceaa. More coaplex file 
ecruccuree, auch as Index fllee, haahcd fllee, 
lodex-eaqucndel fllea, 8'Cree fllee, ecc. may be 
defined uelng cheee beelc funcclona. The C problem will 
eek Che reader Co define e very alaple eelf-lndexed file 
ecruccure. Ocher file ecruccuree will be dlecueeed In 
Che fucure. 

C PKOBLEK 

The prevloue C problea wee Che excenalon of Che ecrlng 
eubaclcudon prograa Co bacoae a verlable eubeclcuclon 
prograa. The program provided below eccoapllehee chla, 



check for error 
mark error 



reecore fuAcdon code 
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•ccapclng • fll« containing • llac of aubaclCutlona; It 
■Igbt b« uasd In aafclng tha varlabla naaaa uaed la a C 
prograa asra aaanlngful. Ita Invocation aaquanca la •• 
follom : 

varlabla oldflla vordllat navflle 

/* copy flla Mlth varlabla aubatlcutlon. */ 

flacluda <acdlo.h> 
flnciuda <ctyp«.h> 

fdailna TASSIZE 300 
fdaflna BNTSIZE 40 
fdaflna IIMBSIZE lift 

char cooMnc • 0, cprog • 1, tabla|TAaSIZEUENTSIZB4l] ; 
Int tabalza - 0, tabalra2 - 1; 

•>ln(argc,argv) 
Int argc; 

cliar *«ri»l); 

chsr lln«lLIN£SlZll«li, Unci I LlNIUilZE*}*!), •«, •yi 

char atrcBpO; 

rttA ■Input, •cKicpuC, *ii9r<l; 

lac coanc - 0, c - 0, p - U, i; 

putc CXn', aCdarr); 

If (argc < 4> 

I 

fpucs ("varlabU aubactcucaa varlabla naxaXa", acdarr}; 
fpuca C^uic: varlabla oldfil* vordllac oawflla [-nl\q**, 

atdarr); 
fputa (" vordllac racorda look aa foilowarXn**, acdarr); 
tpuca (** oid-var <ap«ca> n«v-var\n", icdarr); 
fpuca (*' "fl option for non-c prograaaVn*' , at4err)i 
aitit (1)1 
) 

If ((Ctnput - fupan (•'t-tar^v, "r")] -- HILL) || 
((itard - topan (••*argv. "r")) -- MILL) || 
(<nuti>ut - (opan (***arii«. "v")) -- NULL]) 
i 

fputa ('*can't opan flla ", miitrr); 
fputa {*»rgv, atderr); 
amt (I): 
1 
If (argt > «) 



~cpro»; 
fput* (" rvadlng wnrdltatXn", atd*rr)i 
vhlla dual-aU ■ y * tabid tahaliaj , KNTliUlI, vard) 
I 

It (•») 

if (Mtabalia >' TMSIZt) 
( 



NULL) 



— 


cabalza; 


■1 

1 


(IP) 


1 


fputa (" too aany antrlcaXn ", atdarr) 


1 


P - 1; 


1 

■la* 




whIU (*!+♦ > ttxlU); 


11 


(<•— • < Ua2U) II C*Ci * 1) < Um2I») 


i 






fputa {" Invalid antry:\B ", acdarr); 




fpuca (y, acdarr); 




p - i: 


i 




al 


■ a 




•« - -VO'; 



i 
I 

fcloaa (vord); 

If dp) 

1 

qaorc Icabla, tabalia, eNTSIU«l, atrcap); 

for <c - I; (c <• tabalia); m:) 

( 

It (datrcap (a - tablalcl, y - tabla[c - 1))) *» 

(tatrcap (> * atrlan (a) * 1, y * atrlaa (y) * I))) 

I 

fputa (*' dupllcata old-var at\n *', acdarr); 

tpitca (a, atdarr); 

putc (' ' I atdarr); 

fpwta ((• * atrlan C*) * I), atdarr); 



I 
» 

If (p) 
( 

rpwta (" taralnatad dua CO word Hat arroraNa'*, atdarr); 

ailt (p); 
I 

fputa (" copying old flla to nax flla, wlcb chaogaaXn ". acdarr); 
vklla <( tabalia} «- I) < cabalia); 
Cabalial »- 1; 

Mhlla (fgacadlna. LlNliSllLll, lapuc) I- NULL) 
i 

count *- atrchan«a (lloal, Una); 

fputa (llnal, output); 
) 

tcloaa (Input); 
feleaa (output); 
for (p . U, t - 10000; l; l /- lU) 

If ((c - count / .) II p II (« — »)) 

1 

putc ((c * 'a'), atdarr); 
count -* c * a; 

♦♦p; 

I 
I 

fputa (" vorlablaa cbangadVn", atdarr); 
(lit (0); 



ftaaarcb (naaa) flnda an Itan In the varlabla tabla by binary acarch, 

Naov polnca to tha varlabla Co bv found, null cvrBlniCad, 

It raturna a pclntar Co tha naw varlabla or NULL. 
*/ 

char *baaarch (nioa) 
ebar *ftaaa; 
( 

char *a; 

Int c, t, I • U, p 



/• 



II (t • atrcap <naaa, 
I 

II (t ) 0) 

i *- (tabalia 
do 
i 

If ((t • atrcap Cm 
1 - c; 
) 
Hbllr (t i» p); 



tabaliail; 

<« - tablalp - U))) 



tabalza2); 

(a - tablalc - 1 ♦ (p »- l)|))) > 0) 



I 



I 

/• 



(t T NULL : (a * atrlan(a) * D); 



ScrchangeCdat, arc) coplaa che Input atrlng to tba output atrlag. 
it raplacaa all Idaeclflara apacKlad In tba tabic. 
It raturaa tha ouabar of raplacaaaoca parforvad. 



iCrchaoga<dit , arc) 
char 'dai, 'arc; 
i 

char 'p, •t, *v, alLlNCSIZt*! I ; 

lot c • O, a; 

If (coMant) 

goto coaaa; 
ufalla ({« - 'arc)) 
i 

it ((laalpha(x)) l| (« -- ' ')) 
( 

for (t • a, p - arc; 

(lialpha(*arc) || ladlllt(*arc) || ('arc— '_')); 
*t»* - »arc++); ~ 

•t - -Xu-j 
If ((v - baaarch (i)) I- MtlU-) 

( 

whlla (•daC'»+ - *f*^}; 

dac — 2; 

i 
alaa 

( 



\ 



tfbtla (p !• arc) 
•dac*+ - "p**; 



t 
•lia 

If (d -- -S"-) II (. 

do 
I 
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d^ttoc«t 



II (cprag) 
I 

II Crc — '\\') 
I 

•<l«t»* - '•re**; 
II (l«arc> 

gala •Kit; 
I 
I 

1 

uMla (•arc 44 Care I- <)); 

II (••re >- Uk2U) 

i 

•d«t*+ ■ ••rc*+; 
II ((IcprotI] 44 (••re — a)) 
KoCQ dqiMC«i 
t 
) 

li (eprot 44 (» -- '/')) 
I 

•d«t** ■ ■•rc*+i 

II (••re I- '••) 

coACiaua; 

do 
I 

•4att+ - ••re++; 



( 

Hhlla (•arc 44 (•arc I- '•') 44 (•(arc * I) I- '/'))i 
II (J^arc) 
braak) 
•dat*» • •arc**; 
•dat*+ - ••rc«*; 



I 
• !•• 



•datt+ • •■re++; 



•d^l - '\0' 
r«turo (c)i 



Dm d»c C problta Involvaa ch« coaacrucdon of a C 
prograa <ualag tha randoa flla acceaa fuacClona 
daicrlbad aarllar] which will provlda a flsad raapooaa 
CO a kajruord or phraaa Input to lt> On* application of 
thla prograa ueuld ba tha provlalon of a "halp" facility 
for a ayata.. 

1h« input flla la aaauaad foiaattad aa follom: 



*kayuord or phraaa 
raapooaa flrat Una 



raapooaa laat Una 
*kayvord or phraaa 
raapoiwa flrat lloa 



raapooaa laat lloa 



Thli flla foraat will produca a lalf-lodasad flla 
atructura. In uaa , tha progras would ba axacutad and 
would accapt ona Una of Input at a tlae, providing tha 
flxad raapooaa froa tha flla, If thara la ona, and would 
tamlnata on a null Input Una. 

BZMtfLS C PtOCMM 

Pollowlng la thla nooth'a axaapla C prograa; It llata 
aavaral fllaa In parallal vartlcal columa, parhapa to 
uaa lo coaparlng alallar data or alallar fllaa aaoually. 
Nota that NcCoah C and aoat taall C coapllara do not 
aupport tha contlnAMd atrloga uaad lo tha KlLntSCi 
daflnltlona. Howavar, thay aay raadlly be apllt loto 
aultlple ahortar atrloga In ordar to aalca thata 
accaptabla to theaa coapllarai 



/• prograa to liac tllt» in parallel vcrclcai coluana 
by Kduard K. Dunhaa •/ 

flnclud* <acdlo.h> 

tftlnt HAxriLt 21 /• iM> nuabar o( Input llUa •/ 

fdaCInc HIILfNSCl \ 

"\7Ui«|(i LOMCSloe Kllla) |<uldth>| tCapac<>>| I . Vn" 

fdadna HELPMSC2 "II <iildch> la nyll or laro, chs «hol^ \ 
lopuc lln^ li aant Co ogcpucAnfor <apacaa> to b« racognliad, V 
<vldth> auat bu givan aapllcUly, vvau It x«ro.\n** 

fdalln^ HKLPnSC} "Th^ EIral nuaarlc arguMnt altar ao \ 
alphabetic ia taltcn aa <i'ldth>t the laat\n«a <apacaa>. Thara V 
la no way to apcclly laading apacaa.\ii*' 



/• arguaant lodax •/ 

/• Hag algnaling coaplcllon •/ 

/- Input Ilia Indax •/ 

/• Input bullar •/ 

/• laput I I la count •/ 

/• character pointer •/ 

/• epecaa to be output alter line •/ 

/• uldth (tcaporerjt) •/ 

/• I leg elgnellng uldth Halt •/ 

/• uldth •/ 

/• Ilia pointer •/ 



Cher ergnr, 
« do«e, 
lllenr, 

UmIKAXLIHEI, 
nf llee, 
•e. 

epecealMAXriLSi, 
u, 

uiigiKAxrtiei. 

vldchlMAXrlUli 

rim •inipiMAiriLg), 

•lopenO; 

kaln(ergc, ergv) 
lat ergc; 
Cher 'ergvl | ; 

I 

/• give Inatructlona II cell lacka arguaenta •/ 
II (ergc < ]) I 

IprlntKSTOeu, MgLrHSOl); IprlntKSTtlCU, ltCl.niSC2); 

IprlntKSTDEU, MtLPHSC)); 

enltOi 
I 

/• proceee cooMaod Hoe end open Input I ilea •/ 

lor (ergnr - 1; ergnr < ergc 44 •argv[argnr| t ««ergnr) { 
II (leelpha(*ergvlergnrl)) I 

/* an alphe arguaant can be only a lllanaaa •/ 
•-(I Henri 

II ((InlpllllenrI - lop«n(erg«|argnr | , "r")) -- KXaoil) ( 
IprlnclisTDKU, "\7Cen't open >e.\n", ergvlergnr I) ; 
• xlld) 
I 

• llgldlenrl • NU; /• atart ulth no uldth Halt •/ 
I 

/• If arg la nuaeric end llleneaa but no uldch la eet , 

arg auet ba uldth •/ 
alee II ( ledlglc( •arg>|ergnr| > 44 lnlp|lllenr| ) 
ir (lullgllllenrl) < 

uldthKllenrt - etol(ergv|ergnr 1 ) ; 
uUgitllanrJ - \t,i; 
) 

/• If uldth eat, any other nuMrrIc erg la apecea •/ 

• lea apeceel lllenr] - etoKergtffargnr ]>; 

/• no other kind ol erguaent allowed •/ 
elae 1 

fprlncKSTOeU, "\7Wrong eyntu.VnIa", HELmSCl); 
eiltOi 
I 
) 
nlllee - (ll*ar; 

/• lor eech line, read • line Iroa ••ch Input !(!• In turn •/ 
do I /• continue until •ll lllea llnlalted •/ 

done - YKSi /* etart t>y aaauBlB4 we're done •/ 

for (lllenr - 1; lllenr C- ntlleei **lllanr) { 
u • uldthllllenr) 1 uldchi I Henri : li 
II (e - Igetadlne, HAXLIHK - I. Inlpl f llenrj)) \ 
dofM • MO; /• not done II eay Input lelt •/ 

Htttle (u 44 •a 44 •a I- '\n') ( 

putchar(aa**)', /• 1111 to uldth or and ol line •/ 

II (uldth|lllenr|) • — ; /• count only 11 uldth eet •/ 
} 
I 

/• nou pad with apacae and add eeparatlng epecee */ 
II (uldthllllenr)) uhlle (u— ) putcherC ']; 



lor (u - apacaa(llla»r] ; w» u^-) puccherC '); 

I 

II (Idone) putcherCVn'); /• neullne alter all lllea reed •/ 
J uklle (ldoDe>i 
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In Praise of Aaaeably I>anguage 

Ooa'c gee ne wrong, !'■ all In favor of coaplled 
languagea. 1 Juac chink that chere la aclil a role for 
aaaeably language. If kon Anderson will forglva ae for 
a aoaent, I feel the need Co get ay feellnga oo chla 
aubjecc on record. 

I don'c wrlCa In asseablar very aurii any GK>ra. but 
I've wrlcten K>re chouaanda of llnea of }70. 8080. 
0«c-20, and bS09 aaaeably language than I care to 
reaeaber. I've even done aoae coding In raw aachlna 
language (or a Unlvac. The coapllar tanaclc* polnc ouc 
chat huean dae la aore expenalve Chan aachlne tine and 
chat coapllera produce auch beccer code than chey uaed 
to. They don'c notice chac aoae prograaa are not 
chrow-aways. Consider che ayacea aort prograa. The 
world'a coaputera are aald Co apend about half chelr 
else aordng. If you wrlce a aort chac runa a lltcle 
faater Chan Che coapeclclon, you will be aurrounded by 
Of people waving p»ney ac you, 

IBH wrlcea a loc of acuff In PL/S (a coapller). 
They alght have written aoae of chelr aort prograaa In 
Ic. Two polnca; PL/S la very like aaaeably language; 
IKH sella hardware. 



The clala Chat 
coapller producea bete 
aa allly. The Pore 
relaced clala that a 
aeaory Chan a alallar 
are calking about acor 
the prograa aource). 
chla thoughc experla 
proBOCer Co code 
prograa; ceac Ic and 
chrough a good dlaaaa 
now have an aeaeably 1 
Che coaplled (or chre 
anychlng aaglc. 



1 aoaedaea hear chat a given 
er code than aaaeabler acrlkea ae 
h contingent aoaetlaea aake Che 
prograa In Forth requlrea leaa 
prograa In aaseabler (1 think they 
age for the executable fora, noc 

If you gee Inco thla arguaent try 
nc: aak Che Forth or coapller 
up their favorlce deaonstraclon 
•ke appreciative nolaeaj run Ic 
aeabler; aaaeable the reaulc. You 
anguage prograa exsccly aa good aa 
aded) prograa. Coapllera don'c do 



The beac coapllera apend auch tlae playing with 
reglacer allocadon and ahuffllng code around Co gee 
good perforaance. A good aaaeably language progra^aer 
doea Che aaae thing, but a coapller can do Che rote pare 
of cha work auch faacer. It aay even be able to do aoae 
optlaltatlons that the huaan alnd couldn't handle. 
Sdll, I don't chink anyone would put a coaplled prograa 
up agalnac a hand-coded aaaeably language prograa If 
prograHier dae were no object. 

Hlcroware evidently feela chac Che 0S-9/68X 
operating ayacea geca enough uae Co be worch hand 
coding, but Che udlldea are not. 1 hope chla la a 
ceaporary chlng. I'd like Co believe chac there la a 
ccaa ac Hlcrowara bually rewrldng utility prograaa In 
aaaaabler, but I don't. OS-9 la known aa a aaall, faac 
operadng ayacea; juadflably — It la. The 68K kernel 
Uvea up CO thla reputation. The utility prograaa do 
not . 



If Hlcroware had written the entire 0S-9/68K ayacea 
In aaeeably language It would probably barely be In beta 
teac. The udllcy prograaa definitely wouldn't have all 

Che nlfcy featurea chey do. I'a glad Ic'a out and I'a 
glad the featurea are chere. Now that Che aofcwara la 
In uae chey can discover that copy, and dlr, and renaae . 
and del, and acred are heavily uaed. Thoae prograaa can 
be recoded Into aaaeabler ualng the exlatlng C prograaa 
aa guldellnea. 



The compiler fanatics 
point out that human 
time is more expensive 
than machine time and 
that compilers produce 
much better code than 
they used to. Theg don't 
notice that some programs 
are not throui-awags. 



l,cc'a aay that Hlcroware decided to recode Juac one 
prograa, Che C coapller. They alghc be able Co double 
lea apeed. They ahould be able to ahrlnk It aoae coo. 
Would It be worth lc7 l«c'a aay It cakea thea four 
aan-yaara to recode Ic. If 200 people were waldng a 
cocal of a half hour each day for C coapllea Co coapleta 
chey could aave a cocal of flfcy houra per day Juac by 
ualng Che faacer coapller. Ac that rate Ic would cake 
about eight aontha for Che faacer coapller Co pay for 
Itaelf . 

The caae for recodlng Che C coapller lan't aa good 
aa I aake It aound. Aaaeably language prograaa are 
harder Co aalncaln Chan hlgh-laval language prograaa. 
They are alao auch harder Co aove froa one type of 
coaputer to another. The dae ic cakea co wrlce a 
prograa In aaaeably language la Juat the flrac part of 
Che coat. The additional difficulty of aalncalniog 
aeaeably code la probably a aore laportant coat than the 
difficulty of writing ic. 

Nice alow coapllera encourage people Co do 
aonethlng uaaful while they run. It could be that the C 
coapller la alow enough to ba uaed that way; doubling 
the apead could change people'a work hablta and actually 
coat dae. I don't think thla would happen with 
Hlcroware C. My coapllea only cake aore Chan abouc a 
alnute when I recoaplle an entire ayatea (which I do 
rarely) . 
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Cfflclaacy for ch* uaar dauod* chat progrwu b* 
carafully wrltcao la aaaaabXy laaguaga. Efflclancy for 
cha vandor dlccacaa coapllad laoguagaa. Thara la a 
coBproalaa. I hava uaad Ic wlch a graat daal of 
auccaaa. rirac you wrlca cha program la C. You dabug 
Ic aad laprova tha algorlcha aa auch aa poaalbla. Whan 
Ic la flaaly pollahad, analyaa Ic or uaa tha C profllar 
(prafarably both). Almat avary prograa will hava aoan 
parca chat ara such aora haavlly uaad Chan ochara; saka 
choaa parca Into aaparaca funcclooa aod puc thaa la a 
aeparaca flla. tun through tha dabugglog and pollahlog 
routlaa agalo. Cac cha C coapllar to gaaarata 
uDoptlaltad aaaaably laaguaga wlch cha C aourca lloaa 
locludad aa coaaencs. Hand opclalxa cha Aaaaably coda 
ualag all tha clavar trlcka you Ilka. Asaaabla Ic and 
link tha whola prograa and you'ra dona. 

Tha prograa raaulclag froa chla kind of aalacClva 
hand-opclalxacloD will ba pracdcally aa faac aa ao 
aqulvalaac prograa chac waa wrlccan aadraly la 
aaaaablar aod Ic la llkaly Co ba a battar prograa In 
ochar raapacta. Ic woa'c ba aaarly as aaall aa cha 
aqulvalaac aaaaablar prograa, buc parhapa chaC laa'c aa 
Buch of aa laaua aa ic oaca waa. I aa aapaclally 
plaaaad to ba abla Co aharpao aad dabug ay algorlthaa lo 
C. Tha coapllar alao lata aa concaacraca aora oo cha 
laaa uaad parca of cha prograa. 

If t vara wridog avarychlag la aaaaablar, faacy 
arror racovary aad ochar aaanltlaa would taka a lot of 
CJ.ae and alght aot gat doaa vary carafully. That kind 
of coda la aaldoa uaad. Tha apaad of cha prograa laa'c 
daaagad aodcaably whaa aaccloaa of coda chat ara oaly 
uaad a faw daaa ara wrlccaa la plala C. 

A palalaaa way Co iacluda highly optlalzad coda la 
C prograaa la Co wrlca cha llbrarlaa, or ac laaac cha 
aaac CPU lataoalva parca of chaa, lo aaaaablar. 
Hlcrowara haaa'c dona that, buC chara ia aochlng 
prcvaatlag aa froa aaklng a acarc ac Ic. Tha 
acrlng-haadllog funcdoaa ara good asaaplaa of coda chac 
ofcaa la vary haavlly uaad. 

Klcrowara'a acrlng haadllag fuacdoaa caa ba 
raplacad la ac laaac cwo waya. Tha ladlvldual ".r" 
fllaa coacalalog cha atrlag fuacdoaa caa ba glvaa on 
cha coaaand Una of aach coaplla of a prograa chac uaaa 
chea, or cha ".r" fllaa caa ba appaodad at cha baglanlag 
of cha C library flla. Tha aacoad aolucloa la aaalar Co 
uaa, buc Ic doaaa'c work vary wall. 

Tha llnkar, rllnk, raada chrough cha library flla 
looking for PSacca that aadafy uaraaolvad rafaraacaa. 
Whaa ic flada chaa Ic adda thaa Co cha aodula Ic la 
buildlag. If cha aaw PSacc lacludaa axcaraal rafaraacaa 
chac araa'c raaolvad whaa Ic li aargad with cha aaw 
aodula choaa rafaraocaa ara addad Co cha llac that rllnk 
la crying to raaolva. 

If you puc laprovad acrlng fuacdoaa ac cha 
begloalag of cha library flla, chay will be lacludad la 
your aodula If chay ara uaad la your coda. If chay 
araa'c, buC chay ara uaad by aoae acaadard fuactloa 
(Ilka prlacf}, rllnk will uaa cha aaxc aat of atrlag 
funcdona that Ic flnda lo tha library. Hlcrowara 
organlzad cha library carafully ao cha funcdona 
raqulrad by aach fuocdon coaa afcar Ic In cha library. 
The acrlng funcclona balnng near cha and of tha 
library, buC If you puc raplacaaanc acrlog function* ac 
cha and, rllnk will alwaya uaa cha orlglnala (which will 
ba before your fuocdone In Che llbrery file). I 
believe chec one of Che progreaa In che Ueeia Croup 
llbrery cen be ueed Co pley wlch Che C llbrery file. Ic 
could aolva cheae problaaa by repleclng Che ecrlng 
funcdona Ineceed of eddlng new verelone. 

Theee acrlng funcclona follow cha deecrlptloae lo 
"A C Reference Naauel" by Uerbleon end Steele. Strncec 
eoplea ac aoet n cheraccera buc alweye eppende e '0'; Ic 
Bay therefore uae up to n*-! bycee. I don't chink 
Hlcrowere C doee chie. 



One aore chlng 

I auec heve received three or four letcera over Che 
peec yeer eeklng ebouc building e new booc file wlch 
fewer aodulea In Ic Chan cha ecenderd booc. The problea 
ia chac oa9gen cekea a llec of fllee end coablnee chelr 
coocenca Inco a boocacrep file. How do you gee Che 
aodulee In the boot file Inco eeperata file* eo you cen 
aelecc Che nnee you wenc In e new booc? Anewer, the 
eeve coaaand. The aodulea In Che booc will all b* lo 
aeaory. Save chea loco fllee In whecever coablnetlone 
you like. 

How e ecert on che ecrlng funcclona: 
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Basic OS-9 



Ron VolgtB 



Tmc or Looss khds 

on SniBGS 



Laac cIbc when I praaenced Che prograa of the 
■onch, I aencloned briefly Che fora chac acHnga can cake 
In Che OS-9 ayacea and In C language. I feal aoacwhac 
gullcy abouc noc delving Inco Che aubjecc furchar and 
axplalolng sore abouC ic. The manlpulaclon, acorage and 
uaage of acrlng daca la an laporcanc aapacc of 
prograaalng. Ic alao can be a fun pare of Ic. 

Anychlng wlchln Che coapucer Involvea nuabera or 
characcera. Ulclaacely characcara are nuabera. By 
agreeaenc, wa all uae Che ■ a aa code Co repraaenc 
characcera. Accually you and I aay noc have agreed Co 
Ic, buc aoaebody did. And chey called Ic ASCII code, 
which Is ahorc for Aaerlcan Scanderd Code for loforaaclon 
Incarchange. ASCII la noc Che only code available. Soae 
of Che ochera are ANSI, ItCDIC and CDC Sclanclflc. 

If you aren'c faalUar wlcb ASCII, check eny good 
book 00 prograaalng. Surprlalagly aoac booka couch on 
Che characcar code In aoaa aanner or anocher. Moac 
ayaceaa uae ASCII. I won'c go Inco graac dacaila abouC 
Ic, buC highllghc aoae of lea finer polnca. The coda uaea 
7 blca of inforaaclon, allowing for nuabera $00 Co $7F. 
The flrac 32 characcera, $00 Co $1F, are concrol 
characcera. They Include chlnga like carriage racurn, 
line feed, and back apace. $31 Co $39 are Che nuabera 1 
CO 9. $41 CO $Sf are Che uppercase leccere and $61 Co 
$7f are cha lowercaae laccara. The ocher characcara are 
punccuaclona, wlch excapdon of $7f which la dalece aad 
belonga wlch Che flrac 32 . 

Take a bunch of characcera, hang chea cogecher and 
you've goc a acrlng. If you've dona any aaaeably lenguage 
prograaalng you know you can uae cha paeudo opcode FCC 
CO creece e characcer acrlng. The Una: 

FCC "HELLtf" 
cauaea Che aaacablar Co generece Che ASCII code: 

4a 4S 4C 4C 4F 
Thaae five nuabere gee aaaaablad Inco Che objacc code. 
The OS-9 eyacea ueee enocher paaudo-opcode called, FCS 
(Force Conacanc String). Ic la encerad Che mmmt wey: 

Fcs "MLLer 

an* generacea cha following: 

4a 4S 4C 4C CF 
The big difference la Che leac characcar haa lea ach blc 
a«e high. Ic waan'e being ueed for enychlng elaa. Now 
cha end of Che aeriog cao be racogolzed. This aachod la 
uaad CO acore file, dlreccory end aodule naaee. There 
are ochar waya Co keep crack of cha leogch of acrlnga in 
aaaeably lenguage. I would euggeac gacdng a good book 
on aeeeably lenguage and ecudylog Ic. Alao, acudy ochar 
paople'a aaaeably code for Idaaa. 

Dlfferaoc acheaca In dlffaranc Janguagaa ha«a been 
davleed Co ecore end ecceaa ecrloga, aaelc09 laca jrou Co 
aec ealde en eree for acrlng daca. The way Co do Ic la 
CO dlaenalOQ cha ecrlng wlch e ecaceaenc Uke: 

DS< naaa:STUNCt40] 
Thla celle ■ealc09 Co raaarve 40 bytaa In cha data eree 
for a acrlng called "naaa". Now Che only cblog lefc 1b 
call how long la che ecrlng. U «va>yclae w« wenced Co 
prlnc Che ecrlng, we hed Co oucpuc 40 cheraccara and cha 
Icea we ware ecorlog In Ic vaa aoaachlng leee, wa would 
end up prlndng our ecrlng plue tfhacavar garbage Ic cook 
CO sake up 40 cheraccare, To ceke care of chia Iaalc09 
puca e marker ec Che end of Che daca Co atgnAl cba and 
of daca. U In a prograa we had: 



naae: -"COLOR" 
Che deca would acored ee 

43 4F 4C 4F 52 fF 
When using che daca In "naae", BAS1C09 ulU recognize Che 
Che $FF and uae only che flrec S characcera. Should our 
daca fill che endre eree allocaced Co Ic, che Barker will 
noc be uaad. 



The manipulation, storage 
and usage of string data is 
an important aspect of 
programming. 



C language ueea a alallar aechod. To creaca a daca 
area relied "word", our prograa would concaln: 

char word|2S]; 
Thla provldee epace for 2S characcara. C uaea a aarkar 
CO danoce che end of e ecrlng. The Una 

aCrcpyCDlSK", word); 
coplee che word, "DISK", Co our dece eree called "word", 
lea acorage would look Uka: 

44 49 S3 4B 00 
The $00 la che ASCII null characcer end ueed aa a 
eeralneeor for acrlnga In C Lenguage. Unlike Baslc09. 
aoae C funcclons look for che null characcar ec cha end 
of e ecrlng. C peeeaa cha locaclon Co a funcclon by a 
polneer. The funcclon hee no way of knowing how long la 
che deca eree. So Ic looka for che che null ceraloacor. 
Therefore Ic le beec Co conelder che l«ec "cher" of cha 
daca area for cha eeralneeor. 

Faacel ecoree ecrlng daca In a characcer array. To 
provide epace for characcer daca, we cen encer e line In 
che verlebla declaradon aecdon of che prograa. 

anlsal: array |1..I0) of char; 
Thle aaya chac "anlaal" la an array chac wUl hold 10 
cheraccara. Elcher cha Individual chareccara auac be 
eeelgned Co each characcer In "eolaal" or ic auec be aac 
aquel Co en equivalenc alia eree. To aaalgn cha word 
"CAT' CO line, we encer: 

enJwlU):-'C-; 

enJaall2):-'A'; 

aoJBal|3):-'r: 
or 

antBal:-"CAT "; 

The flrec aachod puCe "CAT" In Che flrac chree characcera 



Different schemes in 
different languages have 
been devised to store 
and access strings. 
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• od lc«v«a cb« reat of ch« acrlng untouchad. So It la 
aayona'a guaaa wbac la In cha Icac 7 characcara. Tha 
aacood Bacbod puca lo "CAf aod 7 apacaa to fill cha raat 
of cha acrlog. If wa wara Co prlnc "aolaal" wlch a 
acacaaeoc Ukai 

wrlcaln(aalB^}; 
all 10 characcara would ba prlocad, no vaccar whac chay 
concaln. A aoluclon la Co craaca • paacal record. Ic 
■Ighc appear: 
cypa 

acrlog - record 
alxa: loceger; 

laccer: array (1..80] of char 
end; 
var 

anlB«l; acrlng; 
Now wa have a coaplex variable who can a core dace by 
characcer and alxe. 1 our prevloue exaapla, Che 
characcer of anlaal. laccer would aclll ba "CAI", buc alxe 
would be 3. To wrlce chle one ouc w* could uee: 
for l:-l CO aolBel.elie 

wrlce(ealBal.leCCar|l)}; 
wrlcaln; 
Thla clae only chree chereccere are prloced and Che final 
wrlcaln forcae a carriage recurn. 



The higher level languegee offer eeverel dlffereoc 
■echode for Che ■aoagaaenc of ecrlng cype dece. Iealc09 
la perhepa Che eealeec Co uee. Once you ellocace epace 
for a acrlog, you need only uee Ic . lo C language ynu 
beve e greecer chalLeoge. You auec be cercaln chac Che 
ecrlog la given enough apace and a null ceralnacor la 
praaeoc. In Paacel, you creece an arrey Co hold ecrlag 
chereccere end are reeponalble for keeping creek of Ice 
alze. AC Che lower lewale, to eaaaably languege you are 
preccy auch In charge of chtnga. OS-9 uee cbe Che 8ch 
blc of chac laec cheraccer Co Bark a ecrlng'e end. BuC 
you can for your prograaa devlae your own aechod. 
Perhepa you'll puc a Barker ec Che end of eech ecrlng or 
■aybe keep creek of ice elze. The choice le youre. 

r»w»iyr: tCODWT HtlilfMC 
HADB EAST 

Thle la Che January laaue end whec beccer ciae Co 
ecarc keeping beccer creek of your checking eccounc 
belance. Thla aoncha prograa la In Faecel. And yee ic 
doee aeke uee of acrlngal 1 wroce Che progrea Co help 
ae reconcile ay checkbook when I receive ay aonchly 
acaceaenc froa che bank. The progrea hae 3 beelc parca: 
Che ecerdng belence, depoelce, oucacandlng checke, 
oucecendlng deblca and Che final balance. Oepoalca ere 
acored aa a cocal of ell depoelce aade. Checke are 
ecored In an array called "checkrecord", which locludee 
lea nuaber end aaounc. Deblca ere eoychlog chac reaorw 
aoney froa your eccounc and len'c e check. Soaa are 
eervlce chargea, aucoaaclc wlchdrawela and cranafer of 
•oaey becween eccouoce. Deblce are ecored In an erray of 
"de blc record", which Includaa dece, oaae and aaounc. The 
final balance le Che ecerdng balance plue depoelce, aloue 
checke and deblce. 

You alghc nodce Che hendllng of ecrlng dece. The 
verlable "oeae" In "dablcrecord" le e ecrlog of 33 
chereccere. Flrac. Ic la eac equal Co 33 apecee, Nexc I 
reed In e chereccer ec e clae Inco Ic, until en end-of- 
llne la reed. If leaa Chan 35 characcara are read Che 
reaalnlog onee ere epecea alace Che errey of "naaa" wee 
flrec Inldellaed Co epecea. 

Back CO Che prograal Afcer all Che dece le read, a 
ehorc euaaary le prlnced Co Che ecreeo giving Che 
ecerdng beleoce, cocel depoelce, cocel cbecke, cocel 
deblca aod Che final beJance, Ivary verlabla la followed 
by a ":8:2". Thle celle Peecel Co uee e field chec le 8 
characcere wide wlch 2 placaa following Che deelaal. TU« 
will cauee your dollar aaounca Co prloced Id alee, cebiUar 
fora. You ere eleo give cbe opdon Co dlrecc e aore 



decalled prlncouc Co e dlfferenc pech. The decelLed 
prlncouc locludee all Che Inforaaclon prevloualy obcalned. 
The oucpuc ceo be Co eny pech you wenc. Perhepe Ic le 
/P for Che prlncer, /TgUI for Che ceraloAl or eoae file 
naae for Che dlek. 

The line 

rewrlce(hBrdcopy, pechllec); 
opene Che pechllec. I dldn'c uee e "close" ecaceaeoc, 
eloce Ic will be eucoaedcelly cloeed ec Che end of Che 
block, Ic would be eeey Co drew en enelogy Co OS-9'e 
concepCa of peche. "Herdcopy" alghc be choughc of ee Che 
pech, "pechllec" le Ice naae > end "rewrlce" ee Che open. 
BuC chere la e auch deeper aeenlng. "Kerdcopy" la e 
apeclel verleble called Cezt, Texc le nochlog aore Chen 
en "errey of cher". In cheory Ic cen be endleee le alxe. 
In reality Ic le llalced by Che cooacraloca of Che aedle. 
Alao, "herdcopy" le declared In Che progrea heading, along 
wlch Inpuc end ouCpuC. The rewrlce coaaand placee Che 
fllee polncer ec Ice beginning. The wrltela puce 
characcara Inco Che cexc end aovee Che file polncer 
forward. The ecaceaeoc 

wrlceln(herdcopy ); 

puce chereccere Inco Che file "herdcop/'. We could uee e 
elaller ecaceaeoc for Che ecenderd ouCpuC end InpuC, ee 
well ee, Che error ouCpuC, Tliey would eppeer: 

readln(lnpuc, ); 

wrlceln(ouCpuC }; 

wrlceln(eyeerr ); 

The chree ecenderd pacha are underecood by OS'9 Peecal. 
In face e elaple readln end wrlceln could be eubeclcuced 
for Che flrec cwo cxaaplae. Thle alao appllee Co uaee 
for reed end wrlce. 

On aore chlng ebouc leec aonche coluan ahould be 
aendooed. There wee e email error lo Che progrea, dec. 
Ic would noc effecc ice operedon, buC you aay wenc Co 
aeke Che cheoge. In Che funcclon, "helpO" Che flrec line 
reed; 

prlncfC'Dneae <devlce nue>\n"); 
The problea le Che progreae oeae 1* dec. Ic wee 
originally Oba^ , buC lacer cheoged. I chenged chlm Uoe 
Co: 

prlncf("UBege:\n"); 

prlncf(" dnc <devlce naae>\n"}; 
Phyalcelly Che progrea will work, buC you alghc wenc Co 
aeke chla change. 

Thee le ell for chla aonch. Scudy Che uee of 
ecrlnge end cry Che Peecal progroa, cbecfclaa. There le 
eo auch Co Peecal chac ic would be lapoaalble Co dlecuaa 
Ic all In one coluan. In fecc ic would ceke en enclre 
couree. If you ere Incereeced. aaoy collegee eod junior 
collegee offer coureee on Peecel. Aleo, gee all Che 
llceracure you cen ebouc Ic. There ere aany good booke 
eround. In fucure I will ttj en dlecuaa aore abouc ic. 
Undl nexc clae, have funi 
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PART 9 - AOVANCKO TASKING FE^TURES 

In Part 8 of thla aerlea the baalc tasking 
atructure of the Ada language waa dlacuaaed, The 
concept of taak synchronization by neans of the 
rendezvous Bechanlaa waa Introduced and llluatrated by 
an exaaple. For the concept of synchronization by 
rendezvous to have the flexibility required for 
effective concurrent progranalng, capability beyond that 
of the slaple rendezvous la required. Often, It la 
neceaaary to aalect froa a number of accept stateaents, 
depending upon which entry call occura flrat. In other 
Inataocea, soae kind of tlaeout aechanlaa Is necessary, 
ao that a taek does not wait an exceealve aaount of tlae 
either at an entry call atateaent or at an accept 
atateaant. Nor la the autual excluelon problea 
coapletely aolved by the alaple rendezvoue, elnce 
concurrent calla can be aade to the aame taak If aore 
than one entry la provided Into the task. 

The extension of taak synchronization features 
beyond those provided by the alaple rendezvous la 
obtained through the uae of the aelect atateaent, which 
can be uaed In the calling taak In conjunction with the 
entry call atateaent, lo the called taak In conjunction 
with one or aore accept atateaenta, or In both the 
calling and the called taak. In the calling taak, the 
aalect atateaent peralta the uae of the tlaad entry 
call, by which a calling taak can tlaeout and continue 
execution If a rendezvoua cannot be effected within a 
apeclflad tlae Interval, In the called taak, the aalact 
atateaent provldea for the uae of a aelactlve wait, by 
aeaoa of which a called taak can choose froa aaong any 
ouaber of accept stateaents In order to find a waiting 
entry call. 

To llluatrate the aelectlve wait uae of the aalect 
atateaent, the following exaaple la provided. 

taak GSTOATA la 

aatrr lNBftTlAL(OATA : oat STATE); 
aatiT OOPPLER<DATA : oat STATE); 
aatrjr AIR_OATA(OATA : oat STATE); 

mad CST_0ATA; 

— Thla la a taak apaclflcatloo that declares 

three eotrlea. The type STATE la preauaad to 

be prevloualy declared and vlalbla to tba 
teak. 

taak bo4]r CeT_OATA la 



baglD 



accept DOPPLERCDATA : out STATE) do 

-- aequence of eteteaanta of accept 
atateaent 
tod DOPFLER; 

~~ aequence of etateaente of accept 
alternative 
or 

eccapt AIR_DATA( DATA : oat STATE) do 

— aequence of eteteaenta of accept 
atateaent 
and AIR_DATA; 

-' aequence of etateaente of accept 
alteroetlva 
and aalact; 



cad GET_OATA; 

— Shown In thla body la a elngle accept 
atateaent with three eccept alteroatlvea. 

When the execution of the taak reechee the reeerved word 
select, a dataralnatloo la aade of which. If any, of the 
three accept etateaente have entry celle welting. If 
there le an entry call waiting, the rendezvous la 
effected laaedlately by thet eccept atateaent and the 
eequeoce of eteteaente of thet eccept etetaaant la 
executed. Upon coapletlon of thla aequence of 
eteteaenta, the reodazvoua le coapletad and the 
paraoctar DATA la paaaad to the calling taek, wblch than 
reeuaea execution. At the eaae tlae, the eequance of 
etateaente of the eccept elternatlve beglne exacutlon. 
When the execution of thle eaquence of etateaente 
reecbee the reeerved word at, control le traoaferrad to 
the end of the ealect eteteaant , Indicated by the 
reeerved worde aad aalact. 

I( aore then one accept eteteaeot have entry calla 
welting, than an laaadlate reodeivoue le effected with 
one of thea, but the language rulee do not specify how 
tble eelectlon le aade, On the other hend. If none of 
the eccept etateaente have entry cella waiting, then the 
execution of the teek la auepeoded eweltlng en entry 
call to one of the eccept eteteaenta. Uhen euch en 
entry call la aede, the taak reeuaea execution end en 
laaedlete rendezvoue la effected. The reader ahould 
note, however, that when execution of a teek le 
euapended, the coaputatlonal raaourcee eaalgned to the 
teek aay be returned to the ruo-tlae aupport eyatea for 
further ellocatlon. Thua, raauaptloo of execution of e 
euepsnded teek aay laply ralalog the teek froa the 
euapended state to the ready atate, where It auat than 
await allocetlon of coaputatlonal reaourcae. Such 
effects ere lapleaeotatloo dependent. 



aalact 



accept INBRTIALCDATA : oat STATE) do 

-- eequence of etateaente of accept 
etateaent 
and INKRTlAL.; 

-- aequence of atataaaota of accept 
elternatlve 



The selective wait la even aore flexible then le 
laplled by the exaaple ebnve. In generel, eech eelect 
elternetlve conelete of an optional •hen condition, 
followed by either an accept elternatlve, e deley 
elternetlve, or e teraloata elternetlve. The wkan 
condition eveluatee e boolean exprealon and, if the 
reeult le TRUE, the eelect elternelve le eeld to be open 
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• od fuocdoo* •• chough ch« «b«a coodldoo war* ooc 
praaaoc. If cha avaluacloo la fALSE, cha aalacc 
alcaroadva la aald Co ba cloaad. No raodazvoua la 
poaalbla through a cloaad aalacc atcaroaclva. Tha aalacc 
acacaaaoc say alao hava ao also pare, vhlch la asacucad 
If ao laadlaca raodaivoua la ooc poaalbla. Tha dalay 
alcaroaclva. If praaaoc, la axacucad ooly afcar a 
apaclflad else dalay, aod ooly If a raodavoua chrough ao 
opao accapc alcaroaclva la ooc affaccad prior Co 
aiplradoo of cha dalay. Aa ao axaapla of cha uaa of 
iAc« coodldooa, cooaldar cha followlog c«ak daclaradoo 
chac laplaaeoca a alapla bloary aeaaphora. 

Cuk BIN_SeMAPMOill la 

aotry UAIT; 

aocry SlCNAl.i 
•o^ 11N_SKMAPM0U; 

caak body BlN_SeMAPHOIlE la 

BUSY : BOOLeAN :- fALSK; 
baglo 

loop 

aalacc 

«ll«D ooc BUSY ■•> 
accapc UAIT do 

BUSY ;- TRUS; 
and WAIT; 
or 

<Ama BUSY -> 

accapc SIGNAL do 

BUSY :- FALSE; 
aa* SIGNAL; 
•ad aalacc ; 
•a4 loop; 
B^ BlK_SeMAPMOU; 

Tha purpoaa of cha aaaaphora la Co procacc aoae critical 
raaourca froa coocurraoc uaa by aora chao ooa caak. Por 
axaapla, all Ada aubprograaa ara raaocraoc~chaC la, 
aora chao ooa coocurraody axacudog caak aay ba 
axacutlog a aubprograa alavilcaoaoualy. A aamapbora aay 
ba uaad Co procacc a procadura froa chla klad of 
alaulcaoaoua axacudoo If aucual axclualoo la raqulrad. 
If cba procadura naaa la CKITICAL, chao all calla Co 
procadura CKITICAL would ba laplaaaocad aa: 

BIN SKMAPtllORE.UAlTi 

CRITICAL; 

ai N_SI!MAf MOUi . S ICNAL ; 

lo Chla aaooar, a call Co CRITICAL cao ba affaccad ooly 
If cha aotry call UAIT raaulca lo a raodazvoua which, lo 
euro, aata cha value of BUSY wlthlo cha aaaaphora caak 
CO rALSK. Ulch BUSY aec Co FALSE, Cha UAIT accapc 
alcarnadva la cloaad, aod chua aoy ochar call Co UAIT 
will cauaa boch cha calllog caak aod cha aaaaphora caak 
CO ba auapaodad. Upoo racuro froa procadura CRITICAL, 
ao aocry call Co SIGNAL raaulca lo ao laaadlaca 
raodazvoua, aloca SIGNAL la ao opao accapc alcaroaclva. 
Thla raodazvoua aaalgoa cha valua FALSE Co BUSY, chua 
opaolog cha UAIT aalacc alcarnadva. Tharafora, If ooa 
caak haa coaplacad a raodaivoua wlch aocry UAIT, ochar 
calllog caaka quaua lo a flrac lo-flrac ouc ordar ac cha 
WAIT aocry uodl cha flrac caak coaplacaa cha SIGNAL 
aocry. 

A calllog caak affceca ao aocry call chrough cha 
axacudoo of ao aocry call acacaaeoc. Uhao ao aocry 
call acacaaaoc la axacucad, an laaadlaca raodazvoua la 
affaccad If cha callad caak la walclog ac a 
corraapoodlQg accapc acacaaeoc. An laaadlaca raodaxvoua 
aay be lapoaalbla for ooa of cha followlog raaaoaa: 



- Tha callad caak la ooc walclog 
corraapoodlog accapc acacaaeoc. 



ac 



Tha callad caak la waiting ac a aalacc 
acacaaeoc coocalolog a corraepoodlag accapc 
acacaaaoc, buc cha accapc alcaroaclva la 
clotcd. 



lo alchar caaa, cha aocry call 1* queued awelclog Che 
evelleblllcy of Che callad caak ac e correapoodlog 
accepc ececeaeoc, or ac eo opeo eccepc elceroedve 
coocelolog e correepnodlog eccepc ececeaeoc. Juec aa e 
daeouc procecdoo feecure 1* oeeded for che eelecclve 
welc, eo eleo le chle feacura required Co procecc Che 
eocry call ececeaeoc froa exceeelve deleye. or poeelbly 
froa e deadlock coodldoo. Thla claeouc feecure le eleo 
provided by Che eelecc ececeaeoc chrough Che uee of Che 
daed eocry call. Por exaapla, Che daed eocry call 

•alacc 

PRlHARY_LOOF.KADAil_lNFUT<RADAK_DATA} ; 

— opdooel eequflDce of ececeaeote 
or 

daley 0.01; 
*ad eelecc; 

will euepend Che celllog ceek for up Co ceo alllleecoode 
ewaldog eo evelleble reodezvoue, efcer which dae Che 
eocry cell will be ceocelled eod coocrol will be peeeed 
CO Che ececeaeoc followlog eod eelecc. Alceroedvely, 
Che eelecc ececeaeoc aay heve eo elee perc: 

aalecc 

FRltiARY_LOOF.RADAK_lNFUT(RADAR_DATA); 

-- opdooel eequeoce of ecacaaeoce 
«1M 

— eequeoce of ececeaeoce of Che elaa perc 
eod aalect; 

lo chle ceee, Che eequeoce of ececeaeoce of cbe elee 
perc will be execuced ooly If eo lenedlece reodeivoue 
1> ooc poeelble. Typlcelly, Che eequeoce of eceCeiMoce 
of Che elee perc would coocelo eoae roudoe backgrouod 
f uoccloo--perhepe eoae eelf -dlagaoedc prograa. Ic le 
eleo poeelble Co loclude e eequeoce of •c«c*aaoce lo Che 
deley elcerneclve ehowo ebove, lo which ceee Che 
eequeoce of ececeaaoce will be execuced ooly efcer e ceo 
alllleecood deley, eod ooly If e reodexvoue le ooc 
effecced during chec ceo alllleecoode. 

The coocepc* oudloed here laply e very powerful 
eod vereedle capablllcy wlchlo Che Ade lenguege for 
lapleaeoclog prograaa wlch coocurraody execudog ceeke. 
Ic ehould be ooced, however, chec Che echedullog of 
ceeke wlchlo e progrea le eccoapllehed by che ruo-dae 
eupporc eyecea, which aay — and probably will— vary froa 
lapleaeocec loo Co lapleaeocec loo . For exeaple , 
dlffereoc ruo-dae eyeceiu asy aupporc dlffereoc ouabere 
of proceeeore, or e elogle proceaeor syecea aay provide 
dlffereoc degreea of auldprograaalog. There ere ocher 
ereee of coocero chec heve ooc beeo eddreeeed here. 
Soae of cheee ereee of coocero relece Co ceek 
prlorldee, ehered dece, eod deedlock evoldaoca. The 
oec reeulc le chec che coocurreoc proceeslog feecuree of 
eo Ade prograa aay ooc be porceble. The progreaaer ceo 
uee eoae dlacradoo Co alolalze cheee coocero* by uelog 
che rich coocurreoc proceeelog feecuree of che leoguage 
CO expllcldy evold poceodel probleaa. For exeaple, 
che uee of ehered dece ehould be alolalted. Deadlock 
praveodoo ehould be epeclflcelly deelgoed loco che 
progrea, racher chao havlog Ic dapeod upoo lapllclc 
leoguage feecuree chec aay ooc be porceble. Prograa 
correccoeee ehould ooc depeod oo che reladva epeed of 
execudoo of coocurreoc ceeke. Clrculer depeodeocy 
eaoog ceeke ehould be evolded. Ploally, eoae cere 
ehould be cekeo lo eelecdog che ruo-dae eupporc 
eyecea. They ere ooc ell che eaae. 

Thle dlecueeloo of ceake coocludee che preeeocedoo 
of Ade leoguage feecuree. The coocludlog perc of chle 
eerlee will review che curreoc ecacua of Ada coapllere 
eod Ada eupporc eofcwere, wlch perdculer eaphaale oo 
che role of che 66000 alcroproceeaor lo cbe developing 
Ade ecene. 

% 
Ade le e credeaark of che U.S. Depercaeoc of Defeaae. 

NIXT: Ade Coapllere eod SoCcwere. 
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TtM 1 ATntfTI for ■oo-Profra^Hr* 

Are you spending lota of dae and aoney Crying Co gee 
Che lofcware chad "KIGST n>K TOtf'T Finally, a cool haa 
been developed chac will aoon becoae aa Indlapenaable Co 
anyone who ovna a coapucer aa a acreifdrlver la Co anyone 
who worka on one, Ac laac 68XX or XXX uaera chere la 
SCULPTOR a fabuloua new aofcware devalopsanc ayacaa chac 
allowa even beglnnera to produce aophiacicaced daca 
■ anageaenc aofcware quickly and easily. Soon Co becoae 
Che booa Co Che 68XX aarkec Chac dBASE II was Co Che IBH 
PC aarkac and chla new varaaclle ayacaa runa on chair 
aachlne aa well aa Ic runa on oura (of courae chere are 
llalcaclona PC uaera auac endure which chank goodnaaa 
don'c apply Co ua}. 

The aoac powerful and uaeful aapecca of SCULPTOR le 
Ic'a file handling characcerladca . By ualng Che Index 
Sequenclal Acceaa Mechod of record acorage and recrleval, 
coupled wlch aodern B-Tree key flLea, you can experience 
excreoely faac aalncenance free daca handling. The key Co 
gecclng Che aoac ouc of ISAH fllea Is Juac Chac, 'Che 
key'. Conceaporaty key ftlea are scsclc In chsc chey don'c 
slusys reflecc s crue relaclonshlp wlch Che aascer dsca 
file. In creating chea Che aaacer file la read, keya are 
aorced and wrlccen aequendally Inco a key file along wlch 
Che aaaCer record nuaber. To aearch, Che alddle of Che 
key file is read and cesced for less chsn, equal Co, or 
greacer Chan, Then aa a reaulc 1/ Che record lan'c found, 
Che file la divided inco elcher an upper or lower haJi and 
chla proceaa repeaca, 

Hany of you have experienced chac afcer aany changea 
In a file, Che key file haa Co be coaplecely rebuilc, which 
on a large file can aean houra of down dae. The S-Tree 
(Binary Tree) key file can ellalnace chla becauae Ic la 
dynaalc, conacandy reflecclng Che current condition of 
cha aaacar f Ua , Vary alaply aach key in a B-Tree file 
concalna cha aaacar f]la kay daca, and record nuaber aa 
wall aa cha locaclon of Che nexc higher and lower key. Aa 
Che aaacer file gee a larger Che key file growa like a cree 
by aprouclng new branchea. Llkewlae, as racorda are 
reaoved or changed Che exlaclng liaba accached Co chea 
are grafced onco Che liab before chea. for a aore 
decalled explanaclon refer Co Donald Xnuch'a "Arc of 
Coapucer Progracalng", 

Aa you can aee, chla powerful acceaa aechod can 
aubacanclally reduce aearch dae, eJlalnace Che need Co 
rebuild key fllea excepc la caae of dlaK corrupclon, allow 
fllaa CO be aucoaaclcally aorced In aeveral waya ac Che 
aaae dae, and all of Chla ualng aiaple eaay Inacrucclona. 
The uae of chla cype of file handling scruccure la 
laporcsnc In SCULPTOR'S sblllcy Co suCoaadcsUy produce 
crue auld-user aofcware. You aay have boughc cha 68XX 
aachlne becauae chac la whac you needed buc unforcunacely 
dldn'c gee ic. The available aofcware haa noc udllzed 
chla capablJlcy Co anywhere near cha excenc chac SCULPTOR 
has. Creactng and building your fllaa are alio faac and 
■aayl Decide whac daca you wane Co uClJlte, deacrlbe It Co 



H Hevietu 
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SCULPTOR, Chen cell le Co aake a acreen fora prograa for 
you aucoaatlcally. ulchln a blink of an eye SCULPTOR 
dealgna your own cuacoa-aade prograa for eneerlng, 
aearchlng, aodlfylng, and deleelng daca. Select one aore 
opelon In che SCULPTOR aaln aenu and you have a wrlccen 
repore prograa. This aounda like Alice In Wonderland, buC 
cruchfujly ic'a llcerally chac alaplet 

Wlch chs powsr of SCUI.PTOI sn Indlvldusl wlch 
svsrsgs coapucsr sxposure csn do soac saatlng chtnga for 
cheaaalvea. Por choae chac wlah Co uclllze SCULPTOR co 
ic'a fulleac capabllldea chere'a Juac noc enough rooa 
here Co cover Ic aLl. I do hope Co be wrldog aore on Che 
aubjecc In fucure laauea ao acay Cuned. SCULPTOR la a 
Fourch Cenaraclon Language. Now I'a noc sure If chac 
aaana Ic haa a 4ch grade educadon or If Ic'a greac, 
greac, grandfacher waa an adding aachlne. Anyway In 
coaparlng chla language Co ocher languagea like BASIC, 
I've found chac accual prograaing dae wlch SCULPTOR la 
aubacanclally reduced. Ualng BASIC, I apend approxlaacely 
20X of ay dae accually developing Che coda Co accoapllah 
Che prograa dlrecdve while SOX of Che dae la apenc 
aaklng up acreena or foraacdng prlncouca or doing ocher 
aachlne dependent caaka. 

Theae tlaw conaualng funcdona have llcde Co do wlch 
Che idea of Che prograa buC are a auac for aaaa of uae of 
Che prograa, Ic la In cheae areaa chac SCULPTOR can 
really halp. By vlrcually ellalnadng cheae aachlne 
dependanc caaka and allowing Che prograaier freedoa Co 
concencrace on Che accual problea ac hand - ic la 
poaalble co develop excreaely faac and effldenc aofcware 
In abouc one fourch Che dae, Lee ae give an exaaple: 
Conalder aoae of Che probleaa one alghc encouncer In 
wrldog a cyplcal bualneaa prograa, 1. Haodltng and coding 
for dlfferene ceralnal cypea , 2. Developing uaable acreen 
foraa, 3, Dealgnlng auld-uar file acruccure, 4. Coding 
CO achieve proper record locking and prevendon of file 
corrupclon by laproper locking, 5. Verifying, changing, 
and foraacdng daca, b. Deceralnlng accual dlak record 
nuabera quickly, 7, Wrldng prlnc roudnea wlch headers, 
foocera, proper apaclng, and cocala, 8, Udllzlng 
enhanced prlncer and ceralnal funcdona, 9. Producing 
neac readable, eaally debuggable code. Theae aerloua 
probleaa are coaaonly Involved along wlch aany ochera in 
any quallcy prograa. SCULPTOR handlea cheae aapecca of 
your prograa efflclendy and qulce aucoaaclcally by: 1. 
Teralnal cypea and codea are loaded froa a ceralnal file 
and are uaed accordingly Co Che ceralnal In uae. 2. 
Screen foraa can be done coaplecely aucoaadc or on a row 
and coluan aelecclon. 3, The daca fllea are all creaced 
for auld-uaer acceaa, 4, Record locking alao can be 
handled aucoaaclcally or under prograa concrol and file 
corrupclon ia vlrcually lapoaalble excepc for soaeching 
like s power fsllure, 5. Excsnslve decs verifying, 
chsnglng, snd foraacdng Is dons sucoaadcally, even aora 
la available under prograa concrol. 6, Dlak record nuaber 
aelecclng la Invlalbly Co progrsa. 7. Esslly deflnsble 
snd/or sucoaadc cencerlng, spacing, hesdlngs, cocsls snd 
aore for reporcs, 8. Enhsnced prlncer ss wsll ss csralnsl 
funcdons srs svsllsble for essy use. 9. SCULPTOR Is sn 
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Eogllah cyp* of language chat It both eaay to raad and 
caay Co write, I have written an order proceaaing ayatea 
that Involvaa all of the above aanclonad faaturaa of 
SCULPTOR and aona others for anyone Incereacsd. 

SCULPTOR la a dyoaalta peckage: howavar, I 
encountered a few probleaa at the atart-up ataga. Flrat, 
the reference aanual doea not have an Index. Aa I waa 
reading there were explicitly dacalled exaaplaa and 
loatrucclona but whan I atartad coding, referring back to 
thea waa tlae conaualng and fruacrating. No lodasi Now 
I'a aure the people who did tha writing didn't alnd 
thuablng through for thalr anawera, but for chat aatter 
thay probably didn't need the aanual anyway. Second, tha 
aactlon on bringing up Che ayicaa la vague. Ba sure Co 
requesc scsrc-up In orasclon for your specific OS wlch 
Che reference aanual. Third, the ayatea doea not allow 
opaolag a aaacer file wlchouc a key file or addldonal key 
fUee wlchouc esch hsvlng sepsrsce end poaalbly aapcy 
•aacar fUea. Thle aeana each file occuplea 2 channels 
allowlog a aaxlaua of 6 fllea Co a prograa (UnlPLEX). Thla 
problaa coaea up when ualng auldpla croaa reference 
fllea for a alngla aascer file. The program only uses Che 
cross rsfsrsncs ksy file eo the sccoapsnylng aaln file Is 
eapcy occupying s chsnnsl sod disk spsce for no value. 

I aenclonsd In chs bsginalng sbouc chs sffscc chls 
produce alghc hsvs In coapsrlaon wlch dBASE II. In 
sddlclon CO sxpsndlog chs asrksc baae for 6BXX aysceaa 
chere srs s nuaber of ocher coaperleons. lo fUs snj 
rscord struccurs dBASE allowa uaa of only 2 files, ssch of 
which Is llalcsd Co a aazlBua of 32 flslds snd s Cocsl of 
1000 chsrsccsrs psi record, sllowlng oaly 6S33S rscords 
CO s flls, SCULPTOR on chs ochsr hsnd hss no llalcs ss Co 
nuabsr of flslds or size of rscords. The llaic Co records 
lo s flls Is s aodesc 17 alllion or che slie of your 
scorsgs asdlua which ever la sasllsr. In fscc aosc 
Ualcsdons Co SCULPTOR sre aachlne esc such ss nuabsr of 
fUss In s progrsa (UnlfLCX snd 0S9 U 6, QuLx la 8, sod 
UNIX B-16). In dBASE sll nuabsrs srs represenced ss 
flosclng polnc snd sll dscs Is scorsd In sscll foraac. 
SCULPTOfs dscs Is scorsd ss rsprsssncedi Incegere 1,2 or 
4 byces, 6 byce flosclng polnc, 4 byes dscs vsrlsbls, sod 
CO 2ii byes slphsnuaerlc vsrlsbls. This sUows grssc 
scorsge uclllzsclon. Ocher polncs Co aendon srs chs 
dBASE allows ooly s aaxlaua of 64 dlffsrenc vsrlsbles to s 
progrsa, SCULPTOR hss no lialc. dBASI llalcs Index key 
size CO 99, sculptor's llalc Is 160. dBASK askss no 
prmlslon for file procscdon lo auld-ussr opsrsclon, Tva 
slresdy aenclonsd SCULPTOR'S super Job hsre. dBASK does 
noc suCoasclcsUy wsrn users sbouC loasrclog s dupllcscs 
record, SCULPTOR doee. Now sn locsrssCLng dlifsrsncs ChsC 
swings boch wsys, dBASE does noc allow acaceaanc labela 
or goco'a and goaub'a. Hany of you, eapeclally chose ussd 
Co progrsaalog In BASIC, alghc ssk how chls could possibly 
be snychlng ocher Chen s nsgsdvs. Wsll dBASI Is s 
scruccured Isngusgs using cop down progrsa flow, ssch 
sscdon snd svsn loop cosBaads hsve s deflnlce beginning 
snd ending polnc wlch no esrly sxlc. This allowa coaplax 
prograaa Co be broken down Inco Independenc acsps, snd 
prsvsncs chsngss asde lo one psrc froa affecdng ocher 
psrcs of chs progrsa. Coupls chls wlch Che asny good 
dsbug cools svsllsbls Co dBASE snd If used propsrly, 
progrsaa srs sssy Co follow snd sssy Co corrscc . 

On Che ocher hsnd SCULPTOR Is slso dsslgnsd ss s 
scruccursd Isngusge, howsvsr 11ns Isbsle snd brsnch 
scscsaencs hsvs bssn Includsd. SCULPTOR does noc havs soy 
cyps of Incsrnsl debugging cooLa sod If your prograa la 
Juaplog all over chs plsce, Chan flodlng sad corrscclng 
srrors csn bs vsry dlfflculc plus chess corrscdons csn 
c suse ocher probleas slsewhsrs. Progrsaaere ussd Co 
BASIC nsed Co keep chls In alnd snd Ic alghc do wall Co 
scudy Che spprosch used by dBASE. One Issc coapsrlson I 
wish CO asks Involves Incerfselng wlch oucslde files. Two 
dlfferenc spproschss hsvs bssn csksn becwesn chsss 
Isngusges, dBASK sllows dlrsccly opening, reeding end 
wrldng CO whsc Is called foreign files. SCULPTOR on che 
ocher hsnd sllows use of oucslds tilMa only chrough rs~ 
dlrecclon of InpuC. I like dBASCs aechod beccer becsuss 
Ic allowa Bors progrsa sod operscor concrol. 

I personslly chink SCULPTOR hss che pocsndal Co 
really booat 68XX(X) ayaceaa Co where chsy oughc Co be. I 



hope Ic'a dealgnere will conclnue Co laprove end enhance 
Ic and I hope aofcwara coapeolee eod ayacea ownera will 
fully uclllca Ic . I ea Including e quick reference guide 
chac you nay wlah Co keep hendy. Please addreea queadona 
or corracdona Co chla magazine In care of David Lewie. I 
will ecceapc Co cover chea In fucure eddldona. Thank you 

Progrea Deecrlpclone 



cf iCoapller for 'aege' prograaa. ( fllee wlch .f 

extension) 

cr :Coapller for 'eegarep' prograaa (fllee wlch 

,r excenelon) 

decprlnceriDecodaa prlncar paraaecera Inco reuaable file 
or CO acreen 



decvdu 



:Oecodee CRT peraaecare Inco reueabla file or 
CO acreen 



deecrlbe :Creace or edlc file record acruccurea 
kfcheck :Checke file Xncegrlcy end counce racorda. 



kfdec 
kf copy 
kfrl 
Icf 



:Raporca decella of k«7 and record lengch end 
che dapch of Index uaege. 

:Re-creecee e keyflle recelnlng axladog dace 
(Uaeful only efcer excenalve deledona) 

iRabullda che Index In che caae of eevere file 
corrupclon following a eyecea craah 

iCheogee deca, error, ocher peraaecera In run 
Clae prograaa 



nawkf :Creacee e new eapcy kayflle 

reforaaC :Rafor««c a keyed file 

ssgs iScrssn fora Incerprecer. 

esgefora ;Prlnc screen fora for docuaencsclon 

sagerep :Raporc ganaracor 

aacprlncer:SeCup prlncer paraaacare 

aecvdu iSeCup CRT peraaacere 

(HOTK aecprlncer and aecvdu aay be fed file 
craacad by dacprlncar or decvdu reapacdvely) 

Secclog up che Syacea 

1. The Language Conflguraclon Prograa: 

Noac of che SCULPTOR proapca and dace foraace ere 
configurable eccordlng Co any daelred aa long as lengch 
and aoaa ocher conacralnce are followed. Below are che 
acandard caxc and foraaca aloag wlcb ouaber of 
characcers svallable Co Inecall change In, 

>+lcf (pachneae of aculpcor prograa) le. Icf /bln/aaga 

l«ngch 



Texc 

Nocee 

dd/aa/yy 

• 

I 

i 

Which opdon do you require? 

No euch record 

Record elready exleca 

Waldog... 

No record eelacced 

(y/o)T 



10 ^/dd/yy or yyyy 

1 Dcclaal polnc 

1 Box Dellalcer 

36 Opdon proapc 

16 dafaulc oar error 

22 " re 

14 " rlu " 

22 " ore " 

6 Proapc proapc 
(Koca on che proapc enychlog you uee Co replace che 

y or n ouec line up wlch che y and n In che original) 
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return with no goaubl 25 

Illegal arlthnadcl 23 

Stack overflow 19 
Deacrlbed record length > actual 37 

7 1 

Bad input data 18 

r I 



Chr alxe (7 or 8) 
<CR> 



(note aagerep will append a <CR> at end of reports to 
accooiaodate the advanced apooler if thia ta not desired 
put a 'x' here) 

11. Setting Up Teralnala 

A nuabar of prograaa and filae era provided to aetup 
terainal and printer paraaetera. All of the acraen 
fTograaa running under Uniflax accaaa CRT paraaeter filea 
In the /gao directory. If your ayatea la uaing only 1 
terainal or 1 type of taralnal and if a file exiata in the 
aupplled dlak for your terainal then copy thla file into 
the /gen directory and naaa It vdu C/gen/vdu}. If you are 
uaing aore than 1 type of terainal in a nulti-uaer 
environaent SCUIPTOK prograaa will pickup your tty 
number, atrip off leading zero'a, and append it onto vdu 
to locate the paraaeter file. If the paraoeter fllea for 
your terainala are aupplled then determine which port 
each one la connected to and copy the par. file into 
C/gen/vdu'ttyno') . /gen/vduO for port /gan/vdul port 1 
and eo on. 

If a paraaeter file Is not supplied for your tecal^al 
grab the aanual for your terainal, copy what you think 
atght be the cloaeet exaaple In the 'vdua' directory into 
a teaporary file and execute thla coaasnd "decvdu (teap 
filenaae) Xvdu.txt)" you can call 'vdu.txt' anything you 
really want . Then 'edit vdu.txt'. The daacriptlone along 
with the hex codea will be in the file. Kefer to the 
SCVLPTOK BAnual for aore detailed deecrlptlone and change 
the hex codea to thoea for your terainal. After you heve 
eaved the file, Chen exec 

"aetvdu /gen/vdu(ttyno} <vdu.txt" 

aubatttute your port nuaber for tc^Qo or leave off, if all 
terainala ere the eaae . By redirecting the input from 
your text fila, all you have to do la change only the 
problea and do it again, if it does not work right the 
first tlae . 

III. Setting Up Printers. 

The aagerep prograa reads the printer psrsaeter file 
ae an argument froa the command line le "eagerep (prograa 
naae) (printer file) (other arguaenta)" the printer files 
sre not aa coaplicated and again if an appropriate 
printer file la not supplied use the 
"decprlnter (parfile) Xtextflle}" to create a file to edit 
then use the aetprinter program with redirected input 
from your text file to create a printer file in the /gen 
directory with a naae you can uae on Che aagerep comoand 
line. U 

"aetprinter /gen/epaon <epaon.txt" 
"ssgerep cuetoaer.r epson >/dev/ppr" 

IV. Getting Stsrted 

1 sa sssuaing here that you have inatalled Che ayatea 
uaing the eupplied insert file. A note about uaing the 
inaert file; check to see thst you don't slresdy hsve a 
prograa called aenu in your /bin directory. That aeeme to 
be the only common name uaed by SCULPTOR programs. 
SCULPTOR programs sre in /bin and /uer/bin and there vlll 
be a /uar/aculptor directory containing ayateo fiXee and 
a couple of demo files. At this point I recoaaend you 
create your own directory such ss /usr/deao. There is a 
comaand file In /uar/aculptor called neweye which aakee 
uae of the ability for Unlflex coaaand fllea to utilize 
arguaenta. 

Aa a <iuick illuetration of arguaent paaelng in 
coaaand filea let'a aaauae there la a compiled BASIC 
prograa that reada a line froa the standard input and 



prints the ssae line followed by s blank line to the 
standard output "fO". He wlU call this prograa "dblapece" 
(creative ehl) and eet execute peraiaaione 
"persa u+x o** dblapace" now utilizing the "page" coaaand 
with line nuabe ra we want to create a coaaand file that 
will give a double apaced but correctly nuabered 
printout. We edit a file "edit pgedbl" (1.00-page $1 $2 
'dblapace) when we execute pgedbl the variables $1 and $2 
will be replaced with arguaenta 
(pgedbl test.cxt -<'lp33 >/dev/apr) "ceac.txt" will replace 
$1 and +].p'ii will replace $2. Run it and you will get 
correctly nuabered Unea double apaced and printed with 
headers at top of each page (p33 nuabera only 33 Unea 
before iasulng formfeed). Off the subject? Not really, 
execute the coaaand file "/uer/aculptor/naweya /uer/daoo 
(or what ever directory you create}" and the argunant 
'/uar/deao' le uaed to create eyatea fllea io that 
directory. Now 70U have a deao directory ready, to atart 
type "aenu" and you ahould be up and running. 

SCULPTOR Prograa Dsfloitions 

Ibox <dallHlting chsractera> 

daflnea non atandard characters to eoeloae acraan fora 

input/output araaa, 

Ibox <> Ibox t Ibox " " Thia aeta to apace 

Idepch <lncegar> 

Defioea acreen depth. Uaad only where terainal aupporca 
feature default 2A Idepth 20 aenda codes to reconfigure 
terminal to new eice 

Ifile <flle Identifier) <psthn«ae> 

Declares keyed file. Psthnaae aay be oaitted if identifier 

is saae aa pathnaac. 

Ifile atock Ifjie cuat cuatoaera Ifiie tax /incoae_tax 

Irecord <flle ldentifler> <pachnaae> 

Declare en alternative record layout for file identified in 
Ifile. Nuat have aaae key length, up to 8 Irecord 
atateaenta per file. 

Ifile xref Irecord xref naaea Irecord xref phone 

lacroU (heading line>, depth 

Dafloea area of coluan data dlaplay. Acceasad by variable 

'acrllna' 

lacroll 10, S (3 rove under heading at line 10} 

I teap <naae>,<baading>,<typa&atze>(<diaeneion>) 
Teaporary variable used la progrsa. No validation 
permitted, format only in box def 
Iteap total, Total, a^ Iteap ebal,End aal.aO 
Itemp cat, Category, a2(10} 



Special tsmp flalda 



Itemp 
Itemp 
Itemp 
I tamp 
Iteap 
Itemp 
Itaap 
I tamp 
Iteap 
Iteap 
Iteap 



arg,,a0 

date,<headlng>,d4 

acrline,,12 

ayetiae ,<haading> ,14 

taak,<heading>,a3 

tlae ,<headiag>,a4 

tacat,<heading>,il 

ttyno,<headiag>,ll 



Command line ergumenta 
Syatam date 
Scroll line variable 
Syataa tiae in eaconda 
The currant taak nuaber 
Current tlae: houra.aina. 
Child taak teralnation acatue 
tty port number 
day,<beadlng>,ll Day for encdate/decdate coansods 
month, <heading>, 11 Nonth " " " " 

yaar,<heading>,i2 Year •• " " " 



Iwidth <integer> 

daflnaa acreen width on terainala that aupport, default 

80 luldth 82 Seoda codes to reconfigure screen to 82 

coluane 

csncel (on/off) 

If on, operstor csn sbort with CANCEL KEY. If off csn't 

chain <text expreaaion> 

Terainatee aaga and replaces it with a new prograa. 
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chack <tll* ld«aclfl*r> lom-lsbcl] 

Check* chac • racord ha* beao raad aod ooc wrlccao or 

claarad 

ciaar <box llac> 

claara cha acraao and data vaiuaa. If box liac glvan 

daara only choaa boxea ooca If no box llac glvan claara 

ill varlablaa la prograa caraful 

claar oaac.coda.aac claar oaBC-amt_dua daar 

dacdaca <*xpraaalon> 

Dacoda a data loco day, aonth, jraar coaponaoca 

dalaca <flla ldanclflar> )nra-l«ball 

dalacaa cha currandy aalaccad racord froa fill 

dlaplay <box llaO 

Dlaplaya currant vaiuaa of apactflad flalda Into boxaa on 

acraao 



proapc <t*xc axpraaaloD> |no-labal] tyaa-labell 

caxc caotarad uodar acou lloa with Cy/n)? oo or yaa aa 

aotarad 

raad <fUa ldaotiriar> (kayftald Hat] |nar-lataal] 

|rlu-lab«l] 

Raada racord whoaa kay aatchaa axactly 

raadkay <flla idaotJflar> [key-flald UatJ [oar-labal] 
raada kay only that axactly aatchaa ona auppllad avolda 
'rlu' 

raturo 

Raturn control froa aubroudna 

rawind <flla idaotlflar> 

Repoaltlooi flla to tha atart ao that 'oaxt' cosMod 

raturoa firat racord In flla 



ancdata <data tUU> 

locodaa currant vaiuaa la aonth, day, year Into data fiald 

and 

Tacalnataa atataaent execution returoa control to option 

proapt 

error <text expreeelon> 

Dleplaye error aeaaaga In bottoa left of ecreen 

exec <text expreeelon> or execu <text expreeelon> 
Executea expreealon aa child teak exec unconflg end 
reconflg ecreen, execu executee without chenglng ecreen 
(unaaen) 

exit <DUBarlc expraaalon> 

Teralnatee eege prograa retunvlog control to celling teek 

or eyetea 

find <fUe Identifier) (key-field Uat] |nar<lebel] 

Irlu-label] 

Seerchee for flret record whoee key aatchee eupplled key. 

Dsci not requiring en exact aatch. 

goaub <Ub«l> 

Traoafere control to eubroutloe et line labeled 



ecroll [expreeelonj 

Kceete the varleble 'ecrllne' 0-ecrlloe *l, >0>ecrlloe to 

value, <0»ecrllna-velue 

eleep <expreeelon> 

Suepeod execution for the nuaber of aaconde 

teetkey <flle Identifier) (key-field Uet] (ner-labal) 
teete for key thet aatchea exactly, evolde 'rlu' 

unlock <flle Identifier) 

Unlocke currently eelected record 

write <fUe Identifier) (re-labclj (nra-label] 
wrltee back end unlocke eelected record 



Idltor'e lata: Due to the aany coablnatlone thet 
SCULPTOR allowa for ecreen foraa and dete file 
dealgoetlon. It la lapaaalblc to cover all, or even a 
aajorlty of SCULPTOR, In one eettlng. However, If enough 
Intereet la Indlceted (lettere, etc.) then we will 
continue thla aa a alnl-tutorlal aerlee. So let ue know. 



goto <labal) 

Tranafere control to atetaaent at Una labeled 

If <expreaaloD) then Cetataaent) I :<ateteMent)) 
StaceaentCe) executed only If expreealon true 

Input <box Uet) (be-labal] (eol-label) (nl->labcl] 
Poaltlooa cureer to each box and awalte Input, If velld 
aaalgne var. If not, aound bell end repeat. 

Inaert <flle Identifier) (key«aeld UatJ (re-label) 
Inaerte e new record Into file checking thet key doee not 
eiraady cxlat 

let <fleld value) - Cexpresilon) 

eet the variable to velue total - qty^prlce 

aatch <fUa Identifier) Iner-labal] |rlu-labc'j 
Return next record whoaa key aatchee prevloue 'find' 

aeeeege <text expreeelon) 

Dteplaye a aeaaege In bottoa left corner 

newfora 

Cleere ecreen redleplaye the ecreen fora ueed on return 

froa 'exec' 

next <{Ue Identifier) (ner«labal| (rlu-labal) 

Reede the next record In eecendlng key aequence froa leet 

key by any acceee cad 

naxtkay <flle Identifier) (nar-labalj 

Kaada kay only for next aecetkdlog avelda 'rlu'(record In 

uee} error. Clvee 'ner' (no euch record) at end of flla 



LH TBI KILL: Coaing eoon will be eewtral optlona for the 
Hueteng-OZO 68020 SBC. One will be en 8 port expanalon 
kit. Thla will be aounted eialler to the etendard 4 port 
aerlel (DB2S) connector aountlng boerd, now Included with 
eech Hueteng-OZO. Thle will ellow a total of IZ eerlal 
porta. 

The etrelght aerial expenelon above la for 0S'$ 
uaer*. The Intelligent I/O below will be for our UnlPLEX 
VK verelon (la devalopaent). TMe veralon wlU heve e KKU, 
Heaory Kanageaeat Unit atenderd. 

We will publleh In 68 Micro Journal whan theae will be 
evallabla. 

* dBASB end dBASB U ere regletered tradeaarka of Aahton- 
Tete. 



SCDLPTOt la available In alngle end aultl-etatlon eyetea 
conflguretlona - depending on tyva coaputer eyetea. See 
S.R. KBDU catalog, thla leeue, Pleaaa note thet dealar 
prlcee ere aleo available. 



■**^ Oalj for 6a Micro Jouval laadarel ■*•» 

UVK tlSO.OO OCf 1^ aKSnirm. tmmlov^mat PedLofa 

SAVB 8M.00 OCf 1^ Sealptor ^v-Tlaa Package 

Offer (xplree Jenueiy 13. 1986 
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EMERALD 
COMPUTERS 



IHC, 



ESB-1 68008 



Single Board 
Computer 

by 
Frank Henriquez 

500 Landrair Ave. 
LA., CA 90024 

I've wanted a single board 68000 computer for 
some time, but most of the boards available were loo 
big, or iKked memory and I/O devices. I wanted a 
68000 CPU, at least 1 28K of memory, a floppy disk 
controller, end at least one serial port, t also wanted 
en expansion port, so I could add A/D converters, 
graphics boards, etc Oh yeah , and I wanted ell of this 
on a board not much bigger then e 5 1 1 A' floppy disk 
drive. Resigned to having to build it myself, I was 
paging through some Magazine eds when I came 
across the Emerald Computers ESB- I Single 
Board 68008 Computer For atwut $600, the 
board comes with e 68008 (an 8 bit Data-Bus 
version of the 68000) running at 8 MHZ without 
wait states, I28K of on board RAM , two serial ports 
with baud rates from 50 to 38. '4K baud, a parallel 
printer port, a floppy disk controller ( it ran connect 
to most 5.25" and 3.5" disk drives end can handle 
double sided, 80trKk drives) and an expansion bus. 
The board provides memory decoding and control for 
another t28K of RAM, and the memory could be 
expanded to a total of about 900K of RAM. The I/O 
section is decokij to occupy a 64K blxk of memory 
at the top of the Bdjrcss space, just below the 64K 
block of memory that is set aside for EPROMs. The 
board also has a powerful monitor program, 
EM0N-68,inEPR0M. This monitor includes a smell 
single line assembler, a disassembler, the usual 
monitor commands, and routines to access the disk 
drives. 

At first, I was less than enthusiastic about the 
68008. Since It has an 8 bit dete bus, t assumed that 
it would be half as efficient as a regular 68000 
(internally, both CPU's are identical), but I later 
learned that the 68008 is about 60X as efficient as a 
68000. So, since the ESB- 1 had evwything else I 
wanted, I ordered the board. 



I completed my system with an Apple-type 
switching power supply, two Teec 55F double sided, 
80 track 5.25' disk drives, and a smell case to pack 
everything into Eventually, I got the ESB- I upend 
running, happily displaying the monitor prompt on 
my terminal. 

There are several ways to use the ESB- 1. You 

can use it with the built in monitor exclusively, or 
you ran replace the monitor EPROMS with a FORTH 
interpreter in EPROM. CP/M 68K is also available 
for the ESB- 1. 

CP/M 68K 

CP/M 68K comes with the usual CP/M 
commands (including that horrible line editor, ED), 
en assembler, DDT, and a "complete' C compiler. So, 
after I got tired of playing with EMON , I sent Emerald 
Computers a check for $239 and a couple of weeks 
later I received CP/M-68K. Depending on the type of 
disk drive you're using, CP/M 68K can take up to 5 
floppies. I received two floppies, one with CP/M 
68K and the CP/M utilities, and another floppy with 
the C compiler. I also received two manuals, one for 
CP/M end one for the C compiler. For $ 1 1 1 you can 
get all the systems files you would need to rewrite 
the BIOS end the boot programs. Emerald has also 
included a listing of their BIOS on the CP/M system 
disk. 

Booting CP/M is the most anno/ing feature of 
the ESB- I . The EMON monitor ttesn't have a disk 
boot commend, so you first heve to enter about 8 
bytes of date into memory. Then you give a "read 
tracks" command to read in the CP/M boot, and 
finally, you type in a jump to the boot program 
which, after e good deal of disk activity, loads in 
CP/M. 

There are many, many feature of CP/M that I 
dislike, so I'll just dsscribe some of the worst. 
Apparently, many of the CP/M 68K utilities are 
written in C, because many of them are enormous. 
Luckily, the ESB- 1 has a very fast set of disk 
routines, so the overall speed turns out to be about 
the same as that of flex. 
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Disk Formats 

The CP/M-68K disk format uses eight 512K 
byte sectors per traclc, so a double-sided 
double- density 40 traclc floppy will only hold about 
320K of data The limited data capacity of each drive, 
coupled with the enormous size of some of the CP/M 
utilities, means that you'll run out of disk space very 
quickly. The easiest solution is to get 80 traclc 
double sided drives. This will give you about 640K 
per floppy. enoogTi room to fit all the CP/M utilities 
and the C compiler on one disk. 

So, lets 58/ you can live with typing in a few 
bytes of data each time you boot CP/M, end you have 
80 track, double sided disk drives so you have room 
to work in. You'reall set to write software, right? 

NO. 

Problems with CP/M 68K 

...or... 
do I really need this? 

I don't know how many of you have experience 
with CP/M, but something you learn to accept with 
CP/M is the truly useless documentation, although 
CP/M-68K is an improvement of sorts. The CP/M 
manual itself is readable, and the documentation for 
the operating system routines is quite good (it 
reminds me of the ISC Flex manual). Unfortunately, 
the C compiler manual is a complete waste of paper. 

On the first page it tells you that the C compiler 
is compatible with the Unix C compiler . and then goes 
on to say that the CP/M-68K C compiler does not 
include any floating point routines. However, if you 
page through the descriptions of the Implemented C 
routines you'll find most trans»Hfcntal functions, 
plus dsscriptions of several floating point commands! 
If you read on, the manual does mention that there 
are two floating point routines available, the IEEE 
standard floating point library and the fester 
Motorola floating point library, it tells you that you 
must specify which library you wish to use. but it 
does not describe the libraries at ell. By now you 
maybe a bit confused, angry, and frustrated (I sure 
wes). I tried reading and rereading the manual, but 
efter a while t just gave up trying to figure out the C 
compiler. A call to Digital Research ( the people that 
wrote CP/M) wes not very helpful; after a long wait 
on the phone, they told me that they did not speak to 
"end users"! 

I finally did manage to compile a couple of small 
tost programs, but the more I worked with it. the 
less "Unix Compatible' it became. I wes also treated 
to a seemingly endless series of disk accesses es the 
compiler compiled, assembled, and linked the 
programs. If you're rwlly lucky, you won't get an 
error message two or three minutes into the 
compilation; but , that's one of the problems with ANY 
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Compiler. 

Well, we've established that the C compiler is 
basically useless, so what about some of the other 
programs? Another winner is CD, the resident line 
editor. There's nothing wrong with this proyam, it 
works. What is wrong is that it is a line editor! I 
wes expecting something a bit more modern. A 
rudimentary screen editor would not have been too 
difficult to write. 

What about the sssembler? Well, at least the 
assembler works well, and it's probably the saving 
grace of the whole opcreting system It's fast (by 
CP/M 68K standards) and it's iasy to use, with lots 
of options. 

As you can guess. I'm less than happy with 
CP/M 68K. The operating system is functional, the 
assembler is good, and if you can get or write a 
simple screen oriented editor, CP/M-68K might 
even be useful If Digital Research would rewrite 
most of the utilities in assembly language and make 
them smaller, and if they fixed the C compiler 
documentation enough to make it usable, then I'd say 
that CP/M-68K would be worth the asking price 
(but then. THEY have stated that they are not 
supporting CP/M-68K any more; they are now 
supporting the "Concurrent" Operating 9/stem, 
instead). As it stands, it's barely worth a tenth of 
it's price. However, if you're only interested in 
assembly language programming, you might find 
CP/M-68K useful. 

What about the ESB- t? Dont let my negative 
view of CP/M-68K scare you away from this little 
gem of a computer ( there's a pun there, somewhere) 
It's a well designed board, and the people at Emerald 
dscoOaO the 1/0 and EPROM sections so es to maximize 
the amount of RAM that could be added to the system. 
Since it has ell the address, data, and control lines 
available on two connectors, it would be quite simple 
to expand the computer (you could probably interface 
it totheSS-50 bus. if you're so inclined). 

0S-9/68K should become available for the 
ESB- ! soon , althou^ it will require that you expand 
the memory to at least 256K. I've heard that some of 
OS-9's utilities are written in C. I have nothing 
against high level languages; I just think that 
operating systems, languages and utilities shouil be 
written in assembly language to maximize speed and 
minimize size (unless you have CPU Speed and 
Memory to BURN!). 

Overall. I'd give the ESB- 1 a four star rating. 
CP/M 68K only gets two stars, thanks to the 
excellent assembler. 

CMEiRLI CampMter* sMr*** it: 

41 M iX. lAtsmotioflal lUafi, Suite 0203 

MtlMiaMkiv, Or 97222 

See thtir ed on page 52 this iitue. 
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Add A Hard Disk Drive 

To Your FLEX or OS-9 



By Jon H. Larlmorc 
Wlch Hlchael Blrdacyc 



Single Board Computer 



"20,096 ••ccoraT Wow! I' Thac'a what you'd have 
heard had you been here In ay computer rooa vhen 1 aaw 
chat nuaber on af ceralnal a couple wceka agOi I had 
Juat apent a aeealngly endlaaa 45 vlnucea ualdng (or 
the foraac prograa Co (Inleh running on the new 
outboard S-Hbyte hard drive we had connected Co ay 
Utcle 6909 FLEX alngle-board coapucer. Alchough I had 
been conalderlng Che poaalblUcy for aoae dae, 
(forever?), we had only accuelly done soaechlng about 
this project a couple of weeks ago when I aeiulred the 
disk drive. We'd been working on Ic for a couple of 
evenings laehlng It together, and It wae atlU tylag 
kludged all over my coapucer cable In naked plecea 
calking CO each ocher chrough cable chat had Co be coo 
long CO let It work. Hike had gone hoae depresaed the 
evening before because Ic didn't work, and I had said 
'But Hike, [ KNEW tt wouldn't. Look at thla neair But 
tonight, work It didi And perfecclyl 

You just night be able to do It too. And perhaps for 
less Chan half of Che $2000.00 or so you'd have to 
apend for a coaplete coaoerclally asseabled systen. 

THE SCARY PART. . 

Now, before you juap Into chls headlong, chere are a 
couple of caveaca I ahould oenclon here, so listen up: 

1. The aoac reliable way Co obcatn a 6809 compucer 
wlch hard drive la Co buy Ic commercially asaanbledi 
Advertisers In chls publication offer excellent 
verslone. They can be easily repaired under werrancy by 
someone else If probleaa develop. For bualneaa 
purpoaea or for acorage of crlclcal dace, chac'a the 
beat route Co cake. 

2. Thla ardcle la NOT a acep-by-ecep descrlpclon of 
eiiaccly how co dupltcace whac we dtd, Juec a general 
oucUne, with necessary specifics. 

3. Although thla addition Is relatively quick, 
Inexpenelve, and eaay for anyone faalllar wlch the 
hard and aoft raaUtlee of the 6809 CPU, It Isn't for 
anyone who doeen't have good eyealght and a ateady 
hand, or who doaen'c know which end of a eolderlng 
Iron CO hold, or an RTS from an IRQ. If you haven'c 
worked In aaeaabler or with coaputer hardware, aaek 
qualified help. 

4. Our inetallatlon waa made on a Peripheral 
Technology PT-69 coaputer. Although these procedurea 
ehould theoretically work wlch any 6809-based aachlne, 
life and coapucara hold no guaranceae. Alao, 
conoecclooa aay be aoldered dlreccly Co the 6809 CFU 
and addreea decoder aockcca. Carefully, carefully. 

5. Our aourca for cba dlak drlwa «a uaed (Itacad at 
cba end of cbta ardcle) la a eurplua dealer whoea 
acock cbangaa <]ulcklyi You aay or nay noc be able Co 
obcaln eicacdy Che eaae drive aodal froa chea chac wc 
uaed. Hoac drtvea will work aa alna did, buc tben, 
'caveat aaptor'. Cacdng tc In Che package deal froa 
cbe llaced Incerface and aofcwara veodor aa; be laaa 
rlaky. 



Nov Chen, havlog goccen chac ouc 
proceed- . . 



of Che way, leca 



WHAT rr IS.. 

Flrsc of all, Che 'secrec Ingradlenca" for chla whole 
projecc are a neac llccla Incerface board and 
accompanying aofcware flrac adverclaad lo cbe 
Sepceaber I98S 68' Micro Journal. You aay have noclced 
chelr ad. A coapaoy calling Icaelf 'Vellwrlccen 
Enterpriaea' offera an excellent generic package of 
coaponent parte Incended Co add e herd drive to an 
SS-30 ayetea. You aay purcbaae Che entire package froa 
Chen If you wleh, Includlog Che disk drive, Incerface 
card, concroUer card, eofcware, and cablea. Or, 
opdonally, you aay cbooae Co purchaae only Che 
coaponenc parca you need, aa I did. They're nice folks Co 
deal wlcb, chelr prtcea are rlghc, and chelr 
producca certainly worked for ac. (Yea, I kaow thla 
leo'c en SS-30 aacblne we're working on here, buC aore 
abouc chac lacer.) 

Alchough I purchased chelr FLEX driver sofcware 
becauae I happen Co be nuccy about FLEX end STAR-DOS, 
they'll be happy Co aeU you equlvalenc driver 
roudnea running under OS-9 Level I or It, or OS-9 
68K. 

WHAT IT DOES. . 

As dealgnad by Joe Dubuc for Wellwrlcceo Encerprlsca, 
the FLEX ayscea deacrlbed here ueea software which 
eosconcee Itself cozlly at the top of your uaer 
aeaory, edjuatlng HEHEND, Chen, overlaying your 
existing DOS floppy disk driver Juap vectors, rs- 
dlrecta DOS dlek caUe Co iceelf. tt. In turn, uelng 
drive ceblea you aec up, deceralnaa whether DOS la 
acceapdng Co call your old floppy drlvea or your new 
herd dlak drive, and aenda or recrievee dace 
accordingly. Neac. 

The aofcware calka to an Incerface board locaced at 
Che aeaory location of your choice. Although tble la an 
SS-3a board, we proceeded, undaunted by the pin 
conneccora ac one elde, Co almply aolder Individual 
ribbon cable conduccors Co Che pin locadona we 
needed. Worked fine. A Ucde eloppy, buC fine. 

The Incerface board baa eo Induatry atandard coonector 
which connecca via ribbon cable Co a Xebac fSUlO Bard 
Olek ConcroUer board. And Ic connecca via cw> pairs of 
acanderd conneccora and cwo ribbon cablea Co your herd 
drive ■ And, of couree, Che drive end boarda auac be 
powered by a aufflclencly buaky power aupply. (We're 
calking heavy ducy eaperege hare folka). 

WHAT US DID.. 

(Flrac, Che bard acuff..) 

Plrec, we raaoved Che 5-volc regulacor froa Che 
Incerface card and connecced Che SS-30 8-yolc line 
dlreccly Co ic'a S-volc card hue. (Sorry, WeUvrlccaa, bace 
CO aess up a nice board dealgn.) We did chla bccauee 
wa planned to ataal power froa Che PT-69'a S-volc 
aupply CO run It, and Ic waa cbua unneceaaery. Ac chac 
point, we weren't eure whecher we'd wind up pucdng chla 
card In Che PT-69 caae or the drive caae. (It muad up, 
aa you'll aee. In Che drive caea.) 

Nexc, wc fabrlcaced cablea aufflclencly long enough Co lay 
Che carda working alda-by-alde bealda Che 

coapucer, Che hard drive, end e ceec power aupply. 



'60' Micro Joumsl 



January '86 



2? 



rorcunattly, aoat of cht conncccori art rachar coason, 
Hlch cha alngular axcaptlon of the ona uaad for board 
and drlva powar connactora. That ona la a aonofagun to 
find. For cha cabla froa cha coapucar Co cha 
Incarfaca card, wa uaad 2S-conduccor ribbon cabla, 
with DB-2) connaccori In cha alddla for convaalanca, 
and a faw unuaad laf cover conductora. (Tha coapucar and 
of thla cabla la aoldarad Co Che CPU board.) And lac'a 
ba corracc here, cha cabla wlch che Juice on Ic, Che 
coapucer end, gaca Che feaaLa conneccor. Ve'd 
iCrongly recoaacnd Che uaa of color-coded cable here 
rachar Chan che gray acuff, aakaa life auch eaiiar. ^M I 
aald, we acola a ground and *i voice froa che PT-69 power 
aupply. Aa Ic curned ouc, we could have Just aa eaaUy 
goccan che S voice froa che dlafc drive power supply, 
but even chough che card ulclaacely wound up In che 
dlek drive ceae, chla echeae reaulced In one leee 
conneccor. (Lec'a eave choee pennlea, ladlea and 
gancleaen.) We ueed ribbon ceble coapreaelon 
Ineulaclon dlaplaceaanc conneccore. They aure aavc a 
loc of dae, aoldarlng, end new worde In che 
vocabulary. Hike aeya he'd buy a drink for che guy who 
Invenced chea, buc I euapacc che way chlnga are coday, 
chac would cake a delivery cruck full of cane of 
whecever. 

SUCCESS IS KAKINC THE RIGHT CONNECTIONS... 

We connecced che ribbon cable froa che incerface card Co 
cha CPU board In che following aannar. Although we ueed 
at leaac a couple of feec of ceble, end ~good dealgn 
pracdca* would dlccece che Inacalladon of line 
buffera/drlvera on che CPU card, and we dldn'c uie 'ea, 
we edll dldn'c encounter eny nolae or data loaa 
problaaa. Wa accachad cha aala DB2S conneccor Co the 
drive cabinet. 

Alchough we alaply aoldered che CPU board connecdona Co 
che backa of che IC eockec pine. If your coapucer ueaa 
aockeced IC'e, you alghc wlah Co conaldar uelng eo 
alcernece aechod, eapeclally If you dlallke 
eoldarlng la dghc placea, or If you alghc wlah Co 
dleconnecc cbla whole chlng lacer. You alghc look for IC 
aockeca In alzae approprlace Co your 6809 and 
addreae decoder tC'a which have excended lengch board 
pine eaall aoough Co plug loco enocher aockec. Then, 
elaply aake your coonecdone Co cheae 'aaodwlch 
aockeca', aad plug chea In becmen che IC'e and the 
exladng board aockeca. I believe I've elao aeen IC 
ceac adaptora which clip over aoldared-ln IC'e. Theae 
alght be a reaovebla alcernaclvc for unaockeced 
boarda, buc I do wonder how reliable chey'd be over 
che long run. Be eure Co reaeaber chac IC pin fl le 
che one bealda che llccle doc, che pin nusbera run 
down chac aide and up che ocher, end chec che eldea 
are ravareed when you view che IC froa underneath. 



+5 (Pine f8,9) . 
GKD (Plna #25,26) 



Orange & Yellow 
Cray & Whlce . . 



*i bua 

CND bua 



INTE&PACE CARD 
CONNECTOR PINS 



PLAT RIBSON 
CABLE COLOR 



CS (Pin fl) Brown 



RST (Pin #2) Red . 

R/W (Pin flO) Crean 

E (Plo fll) Blue . 

07 (Pin #12) Vlolec 



CPU BOAKO 
IC PINS 

(74LSI)B) 

. Pin #12 



(HC6B09E) 



Pin #37 



06 (Pin #13) Grey . 

OS (Plo #14) Whlce 

D4 (Plo #IS) Bleck 

03 (Pin #16) BrovQ 

02 (Pin #17) Red . 

Dl (Plo #18) Orenga 

DO (Plo #19) Yellow 

ISl (Pin #20) Green 

tSO (Pin #21) Blue ■ 

IRQ (Pin #22) Vlolec 

2B 



Pin #32 
Pin #34 
Pin #24 
Pin #2} 
Pin #26 
Pin #27 
Flo #28 
Pin #29 
Fin #30 
Pin #31 
Pin #9 
Fin #8 
Pin #3 



The ribbon cable froa che Incerface card Co che 
controller cerd le SO-conductor. The two ceblea froa 
the controller card Co che dlak drive are ona 
14-conduccor, and ona 20-conduccor. Connecctng che 
boarde Co each ocher end Co che drive waa slnply i 
ceae of coapreaalng cha appropriate connectora onto 
che ribbon cable. You alghc wane Co conalder Juac 
buying SO-conduccor ceble aod acrlpplng Ic down co cbc 
ocher cwo alzea you need, or perhapa ordering cablaa 
already fabrlcaced froa Wellwrltten Enterpriaea. 



(Tbao, che aofc acuff..) 

For FLEX, Wellwrlccen euppUea a hard dlak driver 
prograa called SBEDR1.CMD, en InldellzaClon prograa 
called SFOKHAT.CKD, a drive reconflguradon prograa 
called SCNFG.CKD, eod they elao throw In eoae dendy 
floppy file aanagaaent prograaa which 1 think I've 
aeen In 68' Micro Journel. Aa a coaaand file, the hard 
dlak drivers can be Included ee a STARTUP coaaand end 
loaded autoaatlcally during eyetea Initialization. 

Note, laportantly, that like aoat of the beccer 68XX 
eoftware housee, they gledly end wlllloglr eupply 
eource code for theee, ee a aatcar of courae. If 
anyone ever aake you why you atlck with the 6809, 
chec'a one of che beec reeeone I cen chink of. 

Ae t aencloned eerly on in chla epoch, having craeced a 
aeaa of cablea aod boarde on che ceble, when we 
loaded che aofcware and ran Ic.. nochlngi Well, chec'e noc 
exaccly corracc. Accually, Ic locked up. I chink Ic waa 
chea 2 AH, end chac 'a whan Hike packed Ic In end 
crundled off hoae. 1 called Ic a nlghc coo a few ntnucea 
lacer. 

Ae I waa drtfclng off Co dreaaland che choughc etruck oc 
chac alnce SBEDRl eppeered Co have been Inldally wrlcceo 
for SWTPC Flex 9 (Tee, Ic'e dlfferenc froa m^f 6809 FIJX 
Veralon 3.01, '^$-6$ZIII), perhapa Ic alghc be Infringing 
upon aoae of che aeaory areae ay eyecea had already 
clalaed for lea own. Nexc evening, when I checked, aura 
enough, one double-byce addreaa reglecer had bludgeoned 
che end of ay floppy dlek drlvere. I'b ualng Pacer Scerk'a 
floppy dlak drlvere by che way, love 'ea, buc «y 
veralon excenda Co $DFBC, and che CFOHAT concroUer 
foraac roudne addraaa raglacer In che SBEDRl driver 
aofcware waa located at SDF9D. I aoved It to $DFBD. 
Note, however, that chla addreae ecorege reglacer la 
expected to be at Ic'a original location by the foraat 
prograa and elao by che reconflguretlon prograa, ao 
If you do relocate It coo, don'c forgec to change It In 
thoaa progreaa alao. 

You'll note chac che herd dlak pore addreaa apaclfled by 
SBEDRl 1< SEOOC. For Cha coapucer described here, chla 
la fine, becauae Ic correeponda Co che uaa of pin #12 In 
che coapucer'a 74LS138 addreaa decoder for eendlng che 
chip eelecc algnal Co che 'CS' line of che Interface 
board. Other addreaaea are available froa thla decoder 
chip In thla coaputar, and of courae you aay need Co 
change chle eddreaa for other coaputera. 

Having reaaaeabled SBEDRI.TXT ee SBEDRl. CHD, I then 
called tt up, end, lo and behold. It gave ae "HARD 

DISK DRIVER LOADED* on ay acreen. Whoopee! 

Now, Che llccle dckUea ac che back of cbe sack, aa I 
ancered 'SFORHAT" and hlc recucn. Up case e aenu of 
opdona, and when I eelecced che 'full wha^iy' 
(controller foraat, aedle verlflceclon, and FLCX 
foraacdng In one fell ewoop), Ic ecarced counclog 
ouabera ac cbe boccoa of cha ecreen. And couoced.. And 
counced.. And couoced.. . Afcer ebouc cw«ncy alaucee, I 
begeo CO wonder where chle would ell end, ao I goc ouc 
ay llccle TI Prograaaar calculator and haetUy figured 
ouc how aany eeccore five aegabytea really waa. 
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uhllt Ic Mat happily counting to whtrtver, I want 
downatalra and bad a cupa coFfaa. Lxtar, running 
Puglta and Taylor'a CAT, I waa plaaaad to aaa that 
SFORHAT had andad at a aurprlalngly high nuabcr of 
aactora. Aa It turnad out, we got aora than we 
bargained for. On thla particular drive, jou appear to 
actually get aore than S Hbytea of FORHATTED data 
atoraga. That'a coaaandabLe. And on tlie one we 
happened to gat, there were NO bad aectora. 

Subeequcnt coplea of fUea froa ay floppy drlvea to the 
hard drive, editing tbea with Scredltor m (another 
aaaterplece, bleaa the lata John Alford'a aoul), 
ranaaai, and deletea all conflraed that, aa far aa FLEX 
wee concerned, thla wee Juat another dlak drive 
(albeit a alghty big one, at that). 

Mr. Thoaaa J. Weaver, praaldent of Wellwrltten 
Enterprlaea, polnta out an Intareatlng facet of the 
SIEDRi foraatter. Since FLEX can only handle a aaxlauD of 
16 foraatted Mbytea, by changing a couple of 
clearly aarkad Unea of coda In SBEDRl, It will then 
autffaatlcally aubdlvlde a larger drive into two 
logical drlvae. The only llaltatlon to bear In Bind 
when you do that la thet any aubaequent foraat will 
araae to the end of the phyalcal drive (both logical 
drlvea). 



SO NOW, LET'S NAJC£ IT U»K PRETTY.. 

We already had the cabinet lleted In tlie parts Uat, ao 
we uaed It. You could probably do a aUcker looking job 
ualog one of the *Blg Blue* clone hard drive cases llated 
In aurplua cataloga, but thla one worked fine, and In 
fact, aatchee the putty colored caaea of ay PT-69 and 
floppy dlak drlvae rather well. It has a power aupply 
which appeara Co be aore Chan adequate for the 
controller card, hard drive, and a floppy drive u« 
Inatalled therein, but you ought to verify it'a capability 
with larger hard drlvea. I'a told they suck up a bunch of 
aapa during atart-up. 

I got a friend at work to cut and bend two alualnua 
aount Ing plates for the Xebec controller card and the 
WeUwrltten Interface card. They're nothing aore than 
flat platea cut to the alia of each card, vlch a 
1/2-lncb flange bent at right anglea along one edge 
having a couple of holee punched In It for aountlog. We 
punched holea (carefully, very carefully !!) In the 
interface card and aounted It to It'a place with fiber 
etandoffe and acrewe, then aounted the Xebec card (It 
already had appropriate holee) In a alallar aanner. 

For aoae atrange reaaon, I then apenc an Incredible 
aaouDC of tlae Juet etarlng at the cabinet and the 
boarda, crying to deteralae the aoat appropriate 
layout and aounclng arrangaaent. You'd think soaeone 
was actually going to peek Inalde eoaeday a hundred 
yeara froa now and aey eoaethlng like ttj, ay, didn't Joa 
do a neat InataUatlon Job here". Weird. Anyway, If you 
use thla cabinet, you'll find aa we did, that Ic'a dealgoad 
to hold two full-width drlvaa, ao you can Inacall the hard 
drive lo the right-hand panel cutout, a floppy drive (or 
two) la the left-haad panel cutout, the Xebec controller 
on It'a aounclng plate between the right aide of the hard 
drive and the cabinet aide, and the SS-)0 Interface card 
on Ic'a plate neatlee enugly above the power aupply, 
aounted horlaontaUy. The controller card plate acrawa 
dowo to the caae bottoa to the right of the drive 
aountlng baaeplete, with two acrawa and nuta. The 
Interface plate flange Juat neatly ellpa between the 
power eupply heat alok place and the cabinet back, with 
no acrewe at all. Preaaure bolde It In place, and If you 
loataU the DB2) connector I aentloned earlier, lo the 
connector cutout directly above It, chat connector will 
hold Che Interface card and plate flraly In place. By the 
way, for beet fit In thle cabinet, the controller card 
ahould be aounted on the aide of It'a plate toward which 
the aountlog flaoge benda, while the Interface card la 
ao^^ed on the side away froa the flange. I had an odd 



)/4-wldth floppy drive I had obtained (aall-order, of 
courae), for a give-away price aoae aontha ago, and 1 
finally found a place Co put It, In thle caae, as the fO 
"boot" drive, 

AND FINALLY.. 

You'll note that the eyetea deacribed here dace not boot 
froa the hard drive. It boote, as It alwaya has, froa 
drive fO, etUl a floppy drive. You then uae ASN.CMD In 
STARTUr.TXT, to re-aaalgn the eystea drive to drive II, 
the herd drive. 

Judging froa Hr. Dubuc's driver software, SBEDRl wie 
deelgned to do a boot froa the hard drive, providing 
there le a boot routine In EPROH eoaewhere. I'a ualng a 
FLEX auto-etart verelon of the PT-69 PT-HON aonltor froa 
Peripheral Technology, and they do sell the eource code 
(or that aonltor, ao 1 auppoae one could Include the 
neceeeary boot code In a patched veralon of It, if he 
dealred elegance that auch. 

After the drive had been running for a day or (wo, a 
nasty little ecreech aeeaed to coae froa the cabinet 
periodically. You know how worn brake druna eound on your 
car? Well.. 1 knew It had to be the fan, so I Ignored It 
for a couple of daye. Finally, It got tlie better of ae ao 
I opened up the cabinet, and found the eouod to be 
eaanatlng not froa the fan, but alae, froa the hard 
drive. After aencally coaparlng the alnlaua repair charge 
for a hard drive agalnet the aurplua price I paid for the 
thing, I lifted the drive out of the cabinet and fired it 
up naked again. And gueaa what? 1 dlacovered that, 
aoaehow, the aenufacturer had oalttad an obviously vital 
part of the drlve'e dealgn - - the Scotch tape. (No 
wonder they eold aurplua for eucb a good prlcet) 

There'a en H-ehaped aetel doodad in the alddle of the 
circuit board which protrudea down through a circular 
hole to contact the coalcal end of the drive ahaft upon 
which the flywheel la aounted. (Uow'a that for a 
deecrlptlonT). I think it'e a etatlc potential dlacharge 
device, or eoaethlng like that. Anyway, It was singing, 
loudly. Often. Off-key. When I lightly touched It, It qulc. 
So I stuck a aaall piece of Scotch ca|>c on it (lowering 
It'a reeonant frequency, I gueae), and quickly buttoned 
the whole thing beck up again, before anyone eaw it. It'a 
quiet now... 

Now then, about that huge llet of fllea thle drive holda. 
You'll quickly dlacover that it's eaey to run out of file 
naaee. What we really need le a prograa or patch which 
createa a nuabar of FLEX dlrectoriea on each drive, 
preferably c ree-etructured . Anyone willing to tackle 
that one? 

Lac aa know how you aake out with your veralon of thle 
project. Beet regarde, 

Jon (CoapuServe f7S766,3l3i) 



NO, I DIDN'T PORCET THE PARTS LIST... 
Hardware, software: 

* The worke: A 27-Hbyte WREN hard dlak. Xebec SUIO 
controller, SS-30 Interface card, all cablee, and 
eofcware: Price $2850.00 

» Uellwrltten Entarpriaea 
P.O. Box 9802-84} 
Auetln, Texae 78766 

* Saae aa above, but with a S-Mbyte Shugart 604 drive 

(the one IM ueed): 
Same eource. 
Price $750.00 

* Same aa above, less the herd drive: 
Saae eource. 

Price $600.00 
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* SS-30 Incerface card and software only: 



* Prefabricated cables 



Same source • 
Price $200.00 

* The hard drive: Ue used a Shugarc SA604, but they 
(and other surplus houses) sell other similar 
drives. A recent catalog Hats a Shugart 12 Kbyte 
l/2-Belght drive for $399.00, and a Seagate 23 Mbyte 
1/2-Helght drive for $499.00. 

Priority One Elect roalca #FTS>iU604 
Price $99.00 (8 $89.00 for 3 or store) 
(Technical Hsnual- FTSHUSA604H: $13.00) 

>> Priority One Electronics 

* The Xebec Kodel SI410 Hsrd Disk Controller: 
Price $293.00 

>> J.C. liiforaatloo Systeoa 

* The cabinet (ulth pouer supply): 

Integrand 'Little Board Enclosure' Kodel #2800 
Price $130.00 

NOTE: They make several other very high quality 
enclosures designed for single-board coaputera and 
drives which aay be better suited to your needs. Call and 
ask for their catalog. 

>> Integrand Research Corp. 
8620 Roosevelt Avenue 
Vlsalla, California 93291 
Phone 209-631-1203 

Kda Note: Intergrand also carries the hard to find drive 
power connectors. These people sre resl experts in 
their field. See their ad on page 61. 



>> Wellwrttcea Enterprises 

>> Priority One Electronics (check their cstalog) 

» Your local parts dealer (perhaps) 

* SO-Conductor ribbon csble (color-coded) 
Alpha #3381/30 

(NOTE: The cable and connectors listed here hsve a .030' 
conductor spacing. Other conductor spsclngs are 
available. Be aure your cable spscing Batches Che 
connectors you use.) 

* 34-Conductor rlbboo cable (color-coded)i 
Alpha #3381/34 

* 20-Conductor ribbon cable (color-coded): 
Alpha 13381/20 

* 30-pin header sockets (you'll need two): 
AMP #499366-2 

or Alphs #FCC-220-30 

* 20-piQ header socket (you'll need one): 
AMP (499368-4, 

or Alpha #FCC-220-20 

* 20-poaltlon card edge connector (you'll need one): 
IMf #499360-6, 

or Alpha #FCC-170-20 

* 34-poaltlon card edge connectors (you'll need two): 
AMP #499360-3 

or Alpha #FCC-1 70-34 

* Drive and controller power connectors: 
Shell: AMP (1-480424 (You'll need two shells) 
Pins: AMP (60619-1 (You'll need eight pins) 



o 




Tiun Konnts 



- A •cr««a oTlmCvd TEXT EOITOA wlch •vaiUbillcy 
of 'KEilT aid. Iteero dsfLnidont, conflgurabl* >«rBAa«oc 
d«flnabl« tlMOOF - &U acandard (aacara* and cha isscaat 
'Siobal' fuoctlooa la tha waac. A slapla, aucomadc 
carslaal cooflf proiraa Bakaa chla a r«^ 'no haaaai' pro- 
duce. OqIv 6iC la alta, laavlns cha averai* ayacaa ovar 
16) aactora for caxc buffar - appx' IA»000 plua of fraa 
aaaoryl txCra Elna for progra^iing aa wall aa taxc . 



• BTtcuL omtoDocnoR otmi * 



Uol«r 9129.95 
JTLEl 869.95 



PAT - A full faacura aerMfl ortjntad TIXT KDlTOR vlth aU 
Che baac of "PIX (ca)^'. For ehoae who awore by and lovad 
only PIK. ehla la for yout All PIE faaCuraa and «uch 
■oraJ Too aaay fatCurai Co Uac. And If you don't Uitt 
cheaa. chaog* or add your own. PL*9 aource furnlahad. 
'*C" aourc* awaUable sooa. 8>«lly corxllgurad Co your CKT, 
wlch apaclal conflf aacdoo* 

MMpMlMr nn 9129.S0 

• sncui, mnoaocnm optu * njo. 979.9s 

SPICUL ?AT/^n Caao 
PAT 4 JUST (*/«o«rc«> FLU I99.9S 

Noca: JOR ia "C" aourc* av»U«bla for 05-9 
*• Sm JUWt atfv«rtl*la« - B.I. B0U Cat«l0S - ckSa Uvm 



rtociimis 4 us£ts roots 



SOLVt - OS-9 l^wmlM I mmd n oa]j. A Sy^»oUc Objacc/Loglc 
VarlflcaclOQ 4 txaaln* dabiinar, lacludlni Inllaa 
dabutlia^f dlaaaaaabl* and «BsaBhI«. SOCfl IS TBI MOST 
OOVrUBTl OSBOGVax m h«f« SMS tor cbc 6M)9 OS-9 swrlMt 
SOLTI doaa Ic all! UUb a rich aalacclon of moalcor. 
aaaanblar, dlaaaaaablar, vovlroavaocal, axacucloa aad 
ochar alacelljoeoua co^uoda, SOLVI La cha BST KVUJin. 
eooI-Klc Icaa you eaa oval Tac, SOLTI tM ■1^1* Co uaal 
Ulch coaplaca docuaaocaclon, a aaapl tviryoaa who h«j 
ordarad cbl* packaga baa ravadi ^a ravlaw - M Brro 
Joaraal * Oacaater i9ftS. (Co ^bliad' dabof^og hara. fuU 
acraaa diapl^ya, rich Mad coaplaca la InforHaclon praaaoc* 
ed. Slaca reyla« La 6B Micro Jouroal, Chla 1« our CaaCeaC 



KTl 



LkvbU 14 only * 0S~9 laffalar 9U9.9S 



** POTS; PUaac ooca cha apaclal dlacouaca (UalCed Cl«fe) 
of aaaoread tofCwara lo cha S.K« IBDXA cacalog in ctkl* 
and ochar laauaa. 

Alao plaftaa ooce cba oef policy on docuacnCaCloa of 
aoB* S.|. tCKDlA owaad or llcaaaad aofcvara producta 
offarad la chair caCalog, aod rap«aCed below. 

Hoae «11 pririaa have cha docuaeaCadoa la caxc dlak 
flla (orvac. If yoa cao prloc Ic out on your prlacar, cha 
prlca iB aa ahowa la cha cacalog for cha aofCtftra. tf 
you waoc ua co priac Ic ouc, plaaaa idd 923.00. TMa ia 
our avaraga reprodacdooi aborc ruo coac. Oa aosc all 
Icaaai cht aavlaga la wall worch your dolag cha prlndog, 
ttowevar, Cbla la oaly doaa Co balp aarc you bard aamad 
dollara . Ail ochar aofcwara haa vaodor furoiahad docu- 
aanCadon lacludad la cha prlca. Aoochar - "your cbolca*' 
S.S. IHDIl faacural 
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K-BflSIC updates an nom iTailable. ffgon 
purchased R-BHSIC prior to Jnlg 1. 19B5 
and misb to have gonr K-BBSIC updated, 
please sand $35 anclosed mitb gonr master 
disit to SDotheast Media. 

11 — BH5IC under OS-9 and FLEX oritl nam compile 
TSC BBSIC. XBBSIC. and XPC Source Code Filee 



Tetex 5106006630 



(615)842-4600 



2-4600 m 

^%f II wiif 

S900 Cassandra Smith Rd. 

Hixson. TN 37343 

lor Information 

call <eis) 842-4601 

CoCo OS-9'" FLEX" 

SflrTID/IIE 







BllSlLi noun makes the multitude of TSC ■■■SIC Softunare 
auailable for use under ■S-9. Transfer your fauorlte IHSIC 
Pragrams to SS-S, compile them, Assemble them, and 
Q3QQC0Q} — usable, multi-precision, familiar Softuiare Is 
running under your fauorlte Operating SystemI 

BASIC (as-S or FLEN). Includlw o the ■ssembler 

!!! Special !l! :$»9foa: $99.19 



III SPEOBL III Tlowsti Jan. iS. 1966 Ili SPEOBL III 
$150 OFF Sculptor OS-9 cr UniFLEI DtTilcivimt Pkg. 



Mlcroprocaaaor 0«v*topaantB Ltd.'s Coaaarctal Appllcatlam C«ser«tor Prograa provides a PAST 
Conaerclal Application Developiaenc cool unavailable Co Che OS-9 and UnlFLRX Uaer before. Develop nny 
Coaaerclal Application In 202 of the noraal required cIcm; gain eaay updating or cuacoaltlng. PLUS, 
Che Application can alao be run on KS-DOS and Unix aachlneal Scalpcor handlea input validation, 
coaplex calculaclona, and excepclon condlclona aa well as the noraal collecting, dlaplaylng, reporting, 
and updating Inforaacloo In an orderly fashion. Key fields to 160 bytea; unllalced record size; file 
size ahould be held Co 17 ■lllion recorda. UclUtes' ISAM Pile Scruccure and B-tree Ksy files for rapid 
access. Input and Output coonunlcat Ion with other progress and files plus a library of ISAN routines 
for use ulth C Progrsaa. Run-clae Included w/ the Developaent package; a coaplled Application only 
needs a Run-tlae License. Additions! charge for Networked Units. Prices for Oawloi^at Package/Ruo- 
CIbb. Discounts available for purchases of i or aore Run-tlae Packages. 




OS-9 / UnlPLEX — 




68000 UnlFLEX — 


KS DOS — 






IBM PC Zenlx 


— t9»S.OO/tl7S.0« Altoa Zeolx 




- |1)«S.0«/«2«S.M — >5».00/»llS.OO 


KS DOS Network -- 


1 *■ 


UNIX 


— 


* •* PC DOS ~ ' 


aa 




* Pull Drvelopeaent Package ** Run 


Tiae Package Only 




Pull OIM aad Dealer Discounts Avsll 


sblel 




h^ III Special 


Buy Out 1 1 1 


SPKCIAL - Limited 


Quantity III Special Buy 


Out m J 


Y 6804 rilX WrtVAM 












' 


TSC Pl» uclltctas 
TSC Mate 


-as S7S.00 
oaa I7S.0O 


Baa only 
tev aniy 


iM.oe 

f».OQ 


TSC 
TSC 


MANUALS ONLY 
Sastc PrtcospUer waa tZS.OO 
TasC tdltoc waa tZS.OO 


■sa only 
Bsa only 


tiu.oe 
t».oe 


TSC Text Procaaaur 
TSC Plax PrscoapUar 


». S7S.0O 
>aa SiO.OO 


Baanly 
■•V only 


«M.eo 


TSC 
TSC 


Debui waa t2S.OO 
maaonlc Aaatablar waa S2S.00 


■aa only 
■aa ooly 


t».ae 
tte.eo 


TSC Flax Baalc 

TSC Plex Dlatneaclc 
TSC Text Praceiaor 
TSC ABsaiblar 


was $7i.oa 
was $7S.OO 
Iiaa $7i.00 
was SiO.OO 


■•V only 
Bsv only 
■aaenly 
■sa only 


«M.O* 

ise.oo 
tse.oo 

tis.ee 


TSC 
TSC 
TSC 


COMPLtTt &«00 SOPTVaX* 
Text ProcaasQT waa tSOtOO 
PracoBpllar waa tSO.OO 
Olagaosclca wsa t7S.ao 


tea oaly 
■aa only 
■aa only 


t».ee 
tss.ee 
tse.ee 


TSC PracoaPUar 
TSC editor 


was 1)0.00 
»sa $»0.00 


»>* oaly 
■•■ enl] 


tJi.ee 
t3s.ee 


TSC 
TSC 


DISKS ONLY - MOO Softwsra 
Ultor waa ISO. 00 
Ucllltlaa waa llOO.OO 


■aaoBly 

tea only 


tM.ee 

t7o.ee 


TSC UtlllClca 

TSC Exc(adt4 PTacoapller 
TSC lastc Flaa 
TSC Diagnose (ca 


«aa S7i.oa 

OiSXS ONtY 

waa SSO.OO 

waa $7S.OO 

^J was $75.00 


fc. only 

tea oaly 

■aa oaly 
Baa oolT 


tse.ee 

tSS.BO 

tso.ee 
tse.eo 


TSC 

TSC 
TSC 
TSC 


Aasaablara wsa tSO.OO 
MtMuaLS Only - »tao Sofcwan 

Olalnoatlca waa 123.00 
OS bug ^^ waa t2S.0O 
TasE Procaaaor 2^^ "" ^^^'^ 


■aaaaly 

timm oaly 
Umm only 
Wmt aal)' 


fss.ee 

tzo.ee 
tzo.ee 
tzo.ee 


TSC UCllUlca 


I'V waa J75.00 


fcv only 


tse.oo 




^r 








■^r III piMs 


1 S^fclfy ro«r (^aratlag SyslM 1 Dlik Six* iii 
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(615)842-4600 



Telex 6106006630 



2-4600 m 

S900 Cassandra Smith Rd. 

Hixson, TN 37343 

for Information 

call <«19) 842-4801 

CoCo OS-9'" FllX'" 

SflFTUIAAE 




|H55EniBLERS] 



ASTKWO* froB JoatlMMt Media — /) 'Structured Allrablcr for tlic 
6809' «)i1cli requires the TSC Mere kti*M»r. F, CCF - St«.9S 

Mkto AsM^ler for TX -- The FLEI ST«aiUD AlieaOler. 

SVKlal ~ CCF tJS.sO: F SSO.OO 

9SM Eit«n<ed SM9 Macro *>seiA1tr frn Uttt I/O. — Provldas local 
label]. Motorola S-recordi, and Int«1 Ht« records; XREF. Gene- 
rat* OS-; Mfwrjr mdulas under FLfX. FLEX, C<F. OS-9 SM.OO 

RelBcatlni AsM^ler v/Llaklm LMdcr trem TX. — Uie «1tn fwny of 
tne C anit Pascal Coapller]. F.CCF (ISO.OO 

■m, by Ccahaa Trott froa MadTveb mUn fnt»»t — Co-Realdcnc 
Editor and Aaaaabltr; faat locaractlve A.L. Profra^ng for mBaLl 
to ndlua-aliid Pragraa*. F,CCF - $7], 00 

naa — macs »/ Croaa A>iiabl<r for 6800/1/2/ ]/8 F.CCF - JW.OO 

TIBE CROSS ASSENtLERS froa C«vattr 9|r*tmi C««t«1t*iti — 

Support! 1802/5, 1-80, 6800/1/2/3/8/ll/MCll, 6804, 6805/HCOS/ 
M6805, 6809/00/01, 6502 faally, 8080/5, 8020/I/2/35/C35/39/ 
40/48/C48/49/C49/50/8748/49. 8031/SU8T51, and 680OO ^ste«s, 
Asieabler and Ltitlng fsrHti laa* as target CFU's foraat. 
Produces aachlne Indapandent Nstorola S-Text. 

FLEX, CCF, OS-9, UntFLEX eacn - iM.OO 

any 3 - 1100,00 

to* ccmf\t%i set «/ C Sa«ra (eaeept Vv 68000 Source) - tzoo.OO 



lASN Cross Asteablers for FVEX froa n^imaae LM. — TMs set of 
6800/1/2/3/5/8, 6301, 6502, 8080/5, and Z80 Cross AsseAlers 
uses cha faalllar TSC Nacre AiftaBUr Coaaand Line and Soruce 
Cgde foraat, Asseabler options, etc.. In providing code for tHe 
Urget CPirs. Cooplete set, FLEX only - SISO.OO 

CRASH! fro* Liar* I/O — 8<8tt Macro Cross Asseabler with saae 
features as OSM; cross-asia«i>le to 680C/1/2/3/4/5/8/9/U, 6502, 
1802, 8048 S«rs, 80/85, Z-8, Z-BO, TNS-7000 »rs. SvpporU t><e 
target cMp't Standard amenlct and addressing aodes. 

FLEX, CCF, OS-9 Full package — JJM.OO 

U.12 froa Uayd I/O — Cross Asseabler for ttie 10000. 

FLEX, CCF, OS-9 SMI.OO 




(■■■. 11. M) 

Aad 91 s«Tf«c4 r*nia« 
lot AiT rg*«ia:B 



DISHSSEmBLEHSI 



SUPER SLEUTH froa Coavatcr Syttcat CoiulUntt — Interactive 
Olsasseabler; extreaely POHERFULI Olsi File 8lnary/ASCII 
Eianlne/Cnange, Absolute or FULL Dlsasseafily. XREF Ontrator, 
Label 'Maiae Cnanger', and riles of 'Standard Label Nann* for 
dfff^rent operating Systea 



Color Ce^otar 

ceo (32K Keii'd) ObJ. Only S44.00 
CCF, ObJ. Qn1y SSO.OO 
CCF, u/Source S99.0a 
ceo. ObJ. Only SSO.OO. 



SS-SO Saa 



(a11 «/ A.L. 
F, S»9.00 
U, 1100.00 

0, 1101.00 



OTRAMITE * from Coapatcr SritcBS Coator •- Excellent standard 
'Batch Mode' Olsasseabler. Includes XREF Generator and 
'SUndard label' Files. SPecial OS-9 options »/ OS-9 Version. 

CCF, ObJ. Oily UOO.OO CCO, »}. Only S S9.M 

F, ' ' sioo.oo 0. ' ' SISO.OO 

tl. ' • S300.00 



|PHDGHHmminG|LHnGUHGEs1 



"FLEX IS a iiadartwA ol Toctinical Syaavma Conmiiam 
"OSt I* a irademnK ol Mcnntara 

III PIM 



rL/9 froa Mtadraali aUra «r*c«a> — By Crahaa Tcotc. A coablaacioa 
Kdlcor/Coapller/Oabugger, Direct ■ourco-to-objoct coapllatlOQ 
dcllTerlng faat, coapacc, re-ancrant, KOH-able, riC. 8 A 16-blt 
lotagara A 6«dlglt Real auabcra for all real-world problosB. 
Direct cootrol over ALL Srataa raaourcea, iocludlng loterrupta. 
Coaprebenalva library aupporti alaple Machine Code Interlace; 
atap-by-acep tracer for loatant debugging. SOO* page Naoual 
ulth tutorial guide. ?. CCF - SIM. 00 

NNINSICAL Iron Mhlatlcal 0n«l0VB«t* — Kow supports RmI o^bar*. 
'Structured Programing' UITHOUT losing the Speed and Control of 
Assenbly Languagel Stngle-pa;s Comller features unified, user- 
defined 1/0; produces RONable Code; Procedures and Modules 
(Including pre-conpl1td Modules); aany 'Types' up to }2 bit 
Integers, 6-dlllt Real Ni^bari, untlalted slied Arrays (vactors 
only); Interrupt handling; long Variable Haines; Variable 
Initialization; Include directive; Conditional cnnvlling; direct 
Code Insertion; control of the Stack Pointer; etc. Run-Tine 
subroutines Inserted ai called during coapllatlon. Monully 
produces 1<» less code than PL/9. F and CCF - S19S.0O 

C Caoollar from MadraaR Mere arstan by James McCosh. Full C for 
FUI except bit-fields. Including an Asseii<>ler. Revutres the TSC 
Relocating Assembler If user desires to fnpleaent his ovn 
Libraries. F and CCF - tltl.OO 

C Coapllar froa iitrol — Full C except Doubles and eu Fields, 

streamlined for the 6809. Reliable CoaPHer; FAST, efficient 
Code. More UHIX CoMiatlble than aost. 

PLCX, cor, 05-9 (Uwi II om,x), u - $S7s.oo 

RASCAL caapllar froa Lactdata — ISO Based P-Code Coapfler. 
Designed especially for Nfcrocoaputer Systcas. Allows linkage to 
Asseiitiler Code for aaxlava flexIblllQr. 

F and CCF S" - SIN.OO F RT - SiOS.OO 

rASCAl Caayllar froa (I fc ag i lrf c (now Cmnlttad aattaua} — For the 

FioniliOKAi.; ISO Biied, Kaclva Coda Coapller, Priaarily for 

Real-Tlae and Procaaa Coatrol appllcactoaa* Powerful; Flaxlble. 

Kevttlrea a 'Motorola Coopaclbla' Ralo. Aaab. and Unking leader. 

r and CCF - SAlS.Oi One Veer Kalnt. - $100.00 

K-tASIC froa LLOTO I/O — A 'Native Code' MStC Collar which is 
now Falljr TSC XtASIC coapatible. The coapiler coaplles to 
AssaaOly Language Source Code. A HEM, fm^llMe*, Aaiei<>Ter is 
now Included allowing the asieably of LARGE Coaplled K-SASIC 
Prograas. Conditional assaably reduces Run-tiae package. 

FLEX, CCF, DS-9 Coapiler wItt Assea<)1er - tin. 00 

CRUiCll COOOl froa r ^i^iaa Ltd. •• Supports large subset of AHSII 
Level 1 CD80L with sany of the useful Level 2 features. Full 
FLEX File Structures, Including ^ndoa Files and the ability to 
process Keyed Files. Segaent and link large prograas at 
runtlae. or lapleaented as a set of overlays. The Systea 
requires S6K and CAN be run with a single Qlsk Sysir*. 

FLEX, CCF; MoruHy m».00 
Soaclal iBirodactary Prica (uMle in efftce) — SM.OI 

FORTH froa Statrii ETactraalc* -- A CoCo FORTH Prograaaing 
Language. Tdlarcd la tin CaCal Supplied on Tape, transferable 
to diak. Written In FAST ML. Many CoCo functions (ErapMct, 
Sound, etc.). Includes an Editor, Traca, etc. Provides CPU 
Carry Flag acce»l61l1^. Fast Task Multlpleilng, Clean Interrupt 
Handling, etc. for the 'pro'. Encellent 'Learning* tooTl 

Color Co^uter OKT - tSt.tS 



•1^ Aiif Mmia 

^y Into <ai») d«»-4eoi MMI I WIIIIM 



%Klfr r«r C^arattiHI Systw 



millrtllr> 

P • FLCa, GV 

• oB-9, oro 
• \niTta 

cm ■ Color Coevpjte 
OCf ■ Color Confute 

a Disk Sl» III 



Cnlot Cearoiter FLC* 
Cotnr C<j"f»Jter OS-9 



Malt 
Tape 
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|SOrTWHHE IDEVELDPmEnTjU l 

ttttcQ9 Iktf froa Soatlitiit NMIi -- Thts BatfcM Cross tmftrtmea 
Utility 1s • e<sic09 ?rogrta uhlch vflt product a 'pretty 
printeil* listing «lth tich lint nureered, followd t>y t co«plet« 
cross referenced listing of <11 varlttles, eKterul procedures, 
and line numbers called. Also Includes a rtVfrtm List UttllQr 
w^ilcli outputs a fast "pretty printed' listing with line nuabers. 
Sequlres 9aslcOS or RunB. 

t ceo obj. only — tM.K: «/ Source - in.ti 

ImcSJMm MSCIL VnunU (iMatrei UCIMU Pascal mr 3> 

JUT ~~ product m Crota Jtefcrtnct Uatlnj of any ceMC; otltnctd to 

P««c«l Source . 
IVCLODI -- Include oLher Tiiet (n m Source Text, Including tlnary^ 

unlialttd nteelnx c«p«b[Ucle»i 
PIOVILII — provldea en Indencedi Nitabered, "Scruccogrea** of a 

Patcei Source Teitt File; vtev the ovtrall teruccure of large 

prograaa, prograa Inctgricy, etc. Supplied In Paacel Source 

Code; require* coapilatlon. 

f, ccr — IMS Dtuicr i' - sm.m, r - $so.oa 

OUR froa SeatMast nedU -- A UalFLEX 'basic* Oe-Camller. Re- 
create a Source Listing froa UnfFLEX C^Vfla^ kadc Prograas. 
Morks w/ M.L Versions of 6809 UnlFLCX basic. U • S211.9S 



FULL SC«£» rOMB OISPUT froa Ce^aur ^(Bt CMMItMU — TX 
Ext«Rd«4 MSIC propria supports any Serial Teralnal with Cursor 
Control or Neaory-Napped video Displays: substantially extends 
the capabilities of the Prograa Designer by providing a tAble^ 
driven aethod of describing and using Full Screen Displays. 

P and (XT, U - JlS.Oa, «/ Source - $50.00 



DISK^UTlLITlESjj 



0S-> fDlsk froai Soattiaait N*4f4 — For Lei*] I only. Use the 
[itaaded Itaaory capability of your swrpc or Glalx CPU card (or 
SInlUr fornat DAT) for FAST Prograa Coapfles, CMD execution, 
high speed Inter-process coaaunlcatlons (without pipe buffers), 
etc. • SAVE that Systeo Meaory. virtual Disk s1» Is larlable In 
ax Incniaents up to 96DK, Soae Ass«01y Required. 
-- Lnci I 0«.r — DS-9 obJ. only • tn.ii: *l Source - tU<.<S 



o 



F froa Statkeett Hedia •• Written In aAStOO* (vttk Source), 
Includes: REFORfUT, a BASIC09 Prograa titat refomats a chosen 
aaount of an Of-4 disk to F1.CX Foraat so It can be used normally 
by FLEX: and FLEX, a 8ASIC09 Prograa that does ttw actual nU 
or aplte- function to the special 0-F TnasMr Mit: ustr-frlendly 
■enu driven. Read the FLEX Directory, Delete FLEX Files, Copy 
both directions, etc. FLEX users use the special disk Just like 
any other FLEX disk. snCUL M MT OTVH 0-5J».»S 

COPTMULT froa SMtkMtt Rt«U — Copy LAICC Disks to severe) 
Mailer disks. FLEX utilities allow the backup of MV iln 41*t 
to any SMALLER ilie diskettes (Hard Disk to floppies, B* to S*. 
etc.) by slaply Inserting diskettes as requested by CatllNLT. 
NO fooling with directory deletions, etc. CCPTPRIT.CM 
understand! norMi 'copy* synui end keeps up with files copied 
by aalntilntng directories for both host and receiving disk 
syscea. Also includes MCtMf.OC ko download any size 'randoa* 
type file; RESTORE. CM to restructure copied 'rand ca' f lies for 
copying, or recopylng Oack to the host systtai: and FVELIHE.(3V 
as a 'bonus' utility that 'relinks* the free cfwln of floppy or 
hard disk, ellalnatfng fragaentatlon. 

Co^lettly lii^»te< itaiiik'6' UHWf* Z trn xm m»* 1ac1a0(4. 

ALL 4 Prograas (FLEX, e* or S*> JM.M 

COPTCAT froa LecldaU -- Pascal MT required. Allottt reading TSC 
ninl-FLCX, SSI DOS««. and Digital Research CP/H Disks while 
operating under FLEX 1.0. FLEX 2,D, or FLEX ).0 with MOO or 
6309 Systeas. COPVCAT will not perFora alraeles, but, tictwten 
the prograa and the aanual, you stand a good chance of 
accoaptlshfng a transfer. Also Includes seae Utilities to help 
out. Progriai supplied In Ilt4a1ar Saarc* C»tf* (Alieably 
Language) to help solve unusual probleas. 

F and CCF S* • SM.O* F 6" - MS.O* 



S Teiex 5106006630 

(615)842-4600 ^ 

^%f II Wiif 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 

tor intormation 

call (ei5> 842-4601 

CoCo OS-9" FttX" 

SarTUIARB 



W\X\ DUE VTILrrUS frov n^rfir •! ■<■■ ^BniCaftt* ^ Mghc (•) 
dlffer«DC Asatably L«n«g4g« (v/ Source Cod« > FLAX UtllltUv for 
• very FLIX t^aeri Toolbox: COff ■ PUe with OtC Invn; TMC Dtik 
for crrort; Ca^«i« two Bi«k«i m fate Oi«k l* ''H y Progras; Ulc 
01«lt l«ce«r«; U«««rlBa Wxmm-CkMlm on tha Olak; prlnc Dlak 
MaatlflcftClovi and ftvrt and l«rl«c* clia Dtak Dlraccory (In 
•orced ordtr). — PttTf — Tsn XSASIC Prograa* locludlng: A 
■ISIC ■■■a^MBi^g wlch CXTKA* QV*r "lUnJlT Utte ch«ck for miaalng 
label deflnldona, proceaaaa Uak to Dtlak Inataad of lo ^BOTy, 
etc. Othtr prograifta C««y«r«, Itorga, or G«««r«t« Dp<«e*« 
bacnean two BASIC ?rograaa, c>i«ck BASIC ft«q«flBe« ■■■b«r«. 
coapara t«« ^ka^^t^^^t^ fUeii anil ^ Prograaa for eatabllahlng a 
■ tiflCar 9lr«ck*rp of aavaral Dtaka, and aordng, aelacdng, 
updating, aod printing paglnacad Hadnga of tboa* fUaa* A 
BASIC Cr«B«'-lafar*ftea Prograa, writttn In Aaatably Languag*, 
whlcb pro«tdea an X-Baf Uattog Of th« Varlablaa and ftaaarva d 
Worda lo TK BASIC, DAIKp nd flBMPlin BASIC Prograna. 

ALL UtLUtLaa ItTm^ 9mmrt M (aUbar BASIC or A.U. Sourca Cod«). 

P and CCP - $».0* 

BAfiE fuutiM am for ^itfLu — %y^,<A 



ICDmmunicHTionsI 



CMOOEN T*1*c*Miaa1c«t1eBj Prefraa froa Conrvtar Syttaai 
CoBsalUat*. lac, — Menu-Orlven; supports Duab-Teralnal Node, 
Upload and Download In non-protocol aode, and the CP/H 'Xodear' 
Chrlstensen protocol aode to enable cooaunlcatlon capebflltles 
for aleiost any requirement. Nrttten In 'c*. 

FUX, CCF. OS-9, LinlFLEX: vlth coaplete Source - $100.00 

vlthout Source • tSO.OO 

IDATA froa MaUMeat Rtdia •• A COWHIRICATIOR Package fbr the 
UalFlEX Operating Systea. Use tflth CP/M. Main Fraaes, other 
llnlFLEX Systeas, etc. Verifies Transalsslon using cheetsua or 
CRC: Ri-TranlaltS bad blocks, etc. U - Uff.ft 



GRmE 



RAPIER - 6809 Ckets Prograa fro* S aaMMiit IMIt — Requires FLEX 
and Displays on Aay Type Teralnal. Features: Four levels of 
play. Swap side. Point scoring systea. Two display boards. 
Change skill level. Solve Checknate probleas In l-Z-3-4 aowf. 
Make aove and swap sides. Play whlkc or black. This Is one of 
the itreafeit CKESS prograas running on any alerocoaputer, 
estlaated USCF Rating tCDDt- (better than aost 'club' players at 
higher levels). P and CCF - 179.15 
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'FLE X IS a IrMMmwk o< Tocivical Sysiams CcnuAax K 
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Telex 5106006630 



(615)842-4600 



2-4600 M 

% ^itlA 

5900 Cassandra Smith Rd. 
Hixson. TN 37343 

lor Information 
call (6 IS) B42-4B01 

CoCo OS-9'" FLtX- 

SflrTUIARG 




l^WORDjPHOCESSinGl]] 

SCieoiTOI: in tram Vfrtdraik Rlcro SyiU^s — Powerful Screcn- 
Or(«nt«d Cditor/Mord Proccisor. Alwit SO dirfrrent coaunds; 
o«er 3D0 p«9(S of Oocuntntitlon vltli Tutorltl. reaturcj MuUI- 
Coluan dlipUy tnd editing, *d(ClMl <llgn* coluams (AND <dd tli*a 
up tutoaitlctllyl, auHlple kcyitrotc Mcros, even/odd pigc 
hddcri tnd rooters, labcddcd printer control codes. <ll 
JustlFlcttlons, 'lielp* support, store coaain coaaind series on 
disk, etc. Use supplied 'set-ups', or rewp w keytoird to 
your needs. Cicept for proporttontl printing, this package vlll 
W» IT Mil 

6800 or 6809 fltl or SSB 00$. Q$-9 . 1175.00 

trtLO-SUri froa Cft ruiaa C«*Mt«r Ca. — A fulUacraca 
orlaetvd W0*0 PCOCISSOK — (uaea clw M « 2t Maplay Seraaoa on 
CoCo rLIX/STAt-OOS, or ?»J uordpak). Full actrea dtaptay aatf 
adttlot; aupporta tha Dalay vh««l proportional prlntcra. 

■w mtat — > Ut and ceo - »»».»s, r cr o - ^iTt.w. u - »:w.» 

•TTIiO-iriLL (roa Creac ruiaa Caspatar Ca. — Faat Coapucar 
Dlctlooary. CcapUaanta Stylograph. 

— > ccr and COO - (M.fS, r or O - jW.«. V - »m.»5 

froB Braat nalsa Oi^iBtaT Ca. — Nerg* Halltnt Uac to 
latcaca, ^Inc sultipla niaa, tic, chroufh Stylo. 
> ccr and COO - SH.tJ, F or O - )».»a. I) - ?1 I>.« 



JQIT froB loachaaac Nadla -- Taut Poraatcar developad by ton 
Andareon; for Doc Hacrlx PrinEara. provldaa aany uniqua featuraa. 
Output "Foraittad" Taai (a the Olaplay. Uaa the rrUVT.GNS 
auppllad lor producing rniUlpU coplaa of the ^'ForBatcad** Text on 
tha Printer INCLUDIMC UIIOOU niKTU OMitfU (vary uaaful at 
other Ll««a alio, ano worth tha price of the program by icaalf). 
"Uaar Caaf Igurabla" for ailaptlng to Other frlotcra (co«a< eet iip 
for Epaon HX-SO alch Cralcrax); up to tan (10) labaddad 'Prlnor 
Central l^aaaanda". C^oajMnaatea (or a "Double wuth" printed Une. 
lacLadaa tha oor«Al lloa width, aargln. Indent, paragraph, apace, 
vertical aktp Unoa, page langch, page nuBbarlng, centering, fill, 
Juattflcatlon, ace. Uaa with FAT or mtrf other edlror. 

* Mow auppUed an a two dlak aet: 
Dlak 11: JUSTJ.CWt object lUe, JUST2.TXT PU9 aourcc: TIMX ~ CC 
Dink «2i JUSTSC object and aource In C: fUX - OSS - OC 

The JTSC and rwgular JOST C aource are two aeparata 
prograaa. JTSC coapUea to a veralon that expacte TSC Iford 
Procaaaor type coaaandi, (.pp .ap .ce etc.) Great (or your older 
t«Bt (Uaa. 




«aa IX u.s.i. 

(■la. >1.}0> 
A4a Vt tbrlBC* r«r«l«B 

lot Air yarvlKB 



The C BDurre coapllea co « atandard ayntai JQST.CHD 
Object file. Ualog JOIT syntax (,p .u ,y etc.) with all JUST 
(unctlona plus aavcral additional printer forBatclng lunctlona. 
Ralaranca the JUSTSC C aource. ror thoae wanting an eicellent 
■ UDCIT fUCgO word proceaaor, with featnrea ooa* of tha othere 
bna. Thia la 111 

Olak (I) - PL9 FLEX Veralon only - F 4 CCF - $4«.»S 
Dlak Sec (2) - P & CCF k 059 (C vcraion) - Si«.«» 



o 



SrULI 'Coaputer Dtctiontry* froa SMtftetst Ntrfit — Ota 170.000 
Mordil leat vv » oarg froa within yovr Editor or Word Processor 
(witli the SPM.CJID Utility wkicn operates In tlie FltX UCS). Or 
check and update the Tent after entry; ADO MOODS to the 
DIcttontry, TUg* questionable words In the Text, **lew « word 
In context* before changing or Ignoring, etc. SPCLLI first 
checks a 'Coaaon Word Dictionary*, then the noraal Dictionary, 
then a *Persona1 word list', and finally, any *Specli1 Vord List* 
you eay have specified. SfEUI also allows the use of kiTI Ofsk 
Slaraje systeas. 
II SfgCUI LnlTU TUB Omi ll F and CCF - «9*.») 



DHTHVBflSEfafflCCOUnTinGl 



>MS froa WtiUkaiter AppMed Oislwu arstin — Powerful QSHS; 
N.L. prograa will work on a slBflt tfdad S* dIU. Xt Is F-A-S-T. 
Supports Relatlonil, Sequential, Hierarchical, xfid Rindo* Access 
File Structures; has Virtual Meaory capabilities for Giant Data 
Sates. lOMS Invl I provides an 'entry lever Systea for defining 
a Data Base, entering end changing the Oata, and producing 
Reports. IDMS level II adds tRe POVEHFUL 'BERERAIT facility 
With an English Language Coaaand Structure for nanlpuUtlng tlie 
Dala to create new File Structures, Sort, Select, Calculate, 
etc. XOHS Level III adds special 'Utilities* which provide 
additional ease in setting up a Data Sase. such as copying old 
data Into new Oata Structures, (hanging Systaa Paraaeters, ate. 
lOMS Systea Naaval - tM.lS XMS l«1 I - F g CCF - tU*.9S 

IVB Lvl II - r t ccr - tlM.K 

IDC Ul III - F S CCF . iJM.n 

gCCOIirniC PMUCES — Creat PUIH Ca^attr Ca. and IMwriil Date 
RtMtrtli. IBC. both haw Data Bate and Business Packages written 
in TSC XBASIC for n.£x, CaCa FlEX, and UrtAXT. 
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TABULA lASA SPREADSNCET froa Coafiter Systeas CaisHlUats -- 

TABULA RASA Is stallar to OCSXTDP/PLAN; provides use of Ubular 
coaputatlon scheaes used for analysis of business, tales, and 
econoalc conditions. Menu-driven; extensive report.generatlon 
capabilities. Requires TSCs Extandcd BASIC. 

r lind CCy, U - SX.OO. w/ source - $100.0* 

OTNACALC froa CaapiUr Systaa* CMtar -- Electronic Spread Slieet 
for the S809. 

F and SPECIAI, CCF - {200.00, U - JI9S.0O 

FULL SCitEl IMCVTOtT/MV froa C^«er »itias CnulUats — use 
the Full Screen Inventory Systea/Materlals Bequiresent Planning 
for maintaining inventories. Keeps ilea field file in 
alphabetical order for easier inquiry. Locate and/or print 
records Batching partfal or coaplete itea, description, vendor, 
or attrtbuUs; find backorder or below stock levels. Print-outs 
In iteai or vendor order, NRP capability for the naintenance and 
analysis of Hierarchical asseablles of Iteas In the Inventory 
file. Requires TSC's Csteadad BASIC. 

T and CCF, U ■- JSO.OO, w/ Source - SIOO.OO 

FULL SCICEI NAILIBt LIST froa Ca^atar arttn CdBUltaits — The 

Full Screen Mailing List Systea provides a aeans of aaintalnlng 
slaple Bailing lists. Locate all records aatching on partial or 
coaplate naae, city, state, ilp, or attributes for Listings or 
Labels, eu. Requires TSCi ExtM^d BASIC. 

P and ccr, U - JSO.OO, w/ Souro - $100.00 

BKT-TBAC Faracotar froa Saitkeatt iwgl* ~ An (BASIC prograa 
that plans a diet In terns of either calories and percentage of 
carbohydrates, proteins and fats <C P Cx) or graas of 
Carbohydrate. Protein and Fat food exchanges of each of the six 
basic food groups (vegetable, bread, aeat, skia aitk, fruit and 
rat) lor a specific individual. Sex, lot. Height, Present Height, 
Fraae Site, Activity Level and Bill' NrUbollc Sate for noraal 
Individual are taken Into account. Idea! weight and sustaining 
calories for any weight of the abme Individual are calculated. 
Provides nuiber of days and dally calendar after weight goal and 
calorie plan Is deteralned. 

F - JSB.BS. II - IBJ.BS 
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Many applications foi computeis involve 
the soiling of large amounts of date. This 
can be a very time-consuming operation, 
and as a result much study has been done to 
find ways to sort data more quickly. 
Recently scientists have been applying 
arrays of computing elements to the 
problem in an effort to gain speed through 
parallelism, but for most of us the available 
hardware consists of simple Von Neumann 
uniproccssDis. Even so, a good sorting 
algorithm and an eiRcient implementation 
on a suitable processor can make quite a 
difference. 



well-known sorts, such as the shell sort, 
are unfortunately not stable. 

• The time consumed by the radix sort is 
SIMPLY PROPORTIONAL to the number 
of records to be sorted. That is. if sorting 
N records takes T seconds, then sorting 
(100 X N) records takes about (lOO x T) 
seconds. For most sorting algorithms the 
time consumed increases at a greater 
than linear rate (typically proportional 
to N X logN); hence the radix algorithm 
can sort a large number of records much 
more quickly than the other algorithms 
can. 



PROS/CONS OF THE RADIX SORT 

There are many environments in which the 
radix sort is an excellent choice for the 
algorithm. It has in its favor these 
attributes: 

— A single radix sort routine, judiciously 
programmed, can be used to sort on keys 
any number of bytes in length— that is, 
two different implementations of the 
radix sort algorithm are not required if 
one file lo be sorted has 5-byte keys and 
another has 12-byte keys. 

— This algorithm is absolutely insensitive 
to the pre-sorted arrangement of the 
data. Some sorts perform significantly 
worse if the input data are already 
sorted, or reverse sorted. 

— The radix sort is almost completely 
insensitive to the distribution of keys 
within the data. Some sorts perfoim 
significantly woi'se if the input keys are 
clustered in the collating sequence. 

— Radix is a stable sort, meaning that two 
records with the same key will retain 
their original order when the sort is 
complete. This is absolutely essential if 
successive sorts are to be done on a single 
set of data, as would be necessary to 
print an inventory list by vendor name, 
and by part number within each vendor. 
Although stability is a very common 
requirement in sorting applications, some 



There are situations for which the radix 
sort is not ideal. A small number of 
records, say 50, might be more quickly 
sorted using another algorithm (such as the 
quicksort) because of the fixed overhead of 
the radix sort, although the total sort time 
in such a case would be miniscule for 
virtually any algorithm. Furthermore, the 
radix sort requires extra memory for tables 
and pointeis. while some other sorte require 
no more than the data records themselves. 
The memory required by the radix sort is 
not unusually high— 2048 + (4 x N) bytes 
for this implementation—but in a cost- 
sensitive controller environment even that 
figure might be unbearable. Such special 
conditions are the exception rather than the 
rule, however; the radix sort is a good 
general-purpose sort, and very fast. 

One application far which the radix sort is 
an excellent candidate is in business data 
procesing, where there are often tfaouaands 
of inventory items, parcels of land, student 
grades, etc. to sort on various keys of 
varying lengths. Business systems generally 
have enough memory that the overhead of 
the radix sort is not a problem. The 680(X) 
is a popular choice for multi-user business 
systems because of its high performance and 
its large linear address space of 16 Mbytes. 
That address space is particularly useful in 
sorting; many thousands of records cannot 
be efficiently sorted by procesors which can 
access directly only 64 Kbytes of memory. 
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THE RADIX SORT ALGORITHM 

The inner workings of the radix sort are 
easily understood by considering the process 
used to sort cards with a card sorter. 
Picture a card sorter, with its hopper to 
hold the cards to be sorted, some kind of 
switch by which the column on which to 
sort can be selected, and a group of bins to 
hold the sorted cards, 'llie card sorter might 
be more accurately called a card distributor, 
for all it really does is examine each card 
and place it in one of the bins— specifically, 
the bin whose value matches that of the 
character found on the card in the sort 
column. 

Figure 1 shows a small card sorter. It 
accepts 4-character cards as input and can 
only sort on fields containing the digits to 
4 (this was done to make formatting the 
article easier—the algorithm works for 
arbitrary data). Suppose the requirement is 
to sort a stack of six such cards in ascending 
order based on the contents of the numeric 
field in columns 2 to 4. The cards are put 
face down (so that the first card in the stack 
is on the bottom) in the hopper and the sort 
column is set to column 4. 

Pressing a button causes the sorter to begin 
sorting. The bottom card is taken from the 
hopper and put in bin 4 since the card has a 
4 in column 4 (the sort column). Now 
things look like figure 2. 

Eventually all the cards in the hopper have 
been distributed into their appropriate bins 
(figure 3). Notice that some bins have more 
than one card, and some have none at all. 
Where a bin has more than one card in it, 
the cards in the bin are in the same order as 
they were in the hopper. 

Next collect the cards from the various bins 
into a pile, putting those from bin first, 
followwl by the those from bin 1, etc. This 
new stack is sorted in ascending order on 
column 4. This new pile goes back into the 
hopper and the sort column is advanced to 
column 3 (figure 4). 

Again, pressing a button starts the sort, this 
time on column 3. Things look like figure 5 
when this second pass is done. 
Now collect the cards again, bin first, then 
bin 1. etc. This new stack, which is sorted 
in ascending order on columns 3 and 4. goes 
back into the hopper. The sort column is 
advanced to column 2 (see figure 6). 



Pressing the button distributes the cards a 
third time, so they appear as shown in 
figure 7. 

Collecting the cards a final time yields the 
following stack, which is sorted on the field 
in columns 2 to 4: 

D430 
F332 
B314 
E114 
A114 
C04.1 

Notice that "An4" and '*E114" are still in 
their original order, so the sort was stable. 

If the requirement had instead been for a 
descending sort, the only difference in the 
procedure would have been to always 
collect the bins in reverse order. That is, 
the cards in bin 4 get put at the front, 
followed by the cards from bin 3, etc. 



IMPLEMENTATION DETAILS 

Coded in the 68000 structured assembly 
language, this implementatimi of the radix 
sort is quite fast. On an 8 Mhz 68000 
executing with no wait states it can sort 
10,000 records on a 4-byte key in just over 
half a second. Only 13 seconds are required 
to sort 100,000 records on a 10-bytc key. 
This performance is due in part to the 
68000's large set of general, 32-bit registers 
and its advanced addressing modes, but the 
linear relationship between number of 
records and sorting time which characterizes 
the radix sort is largely responsible. 

The radix used is 2Sb, meaning that in each 
pas a single byte of the key of each record 
is examined and interpreted as an unsigned 
integer in the range to 255. This simple 
decision has interesting consequences: 

— Since the routine is prepared to see any 
value which can be represented by an 
8-bit byte, the routine can sort 
ANYTHING. Key bytes need not be 
numeric digits, or even ASQI. 

— Since a byte is processed in each pas, 
keys of different lengths can be 
processed simply by making the 
appropriate number of passes. That is, a 
5-byte key requires 5 passes, while a 
12-byte key requires 12 passes. 
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The card hopper is represented as a linked 
list of records. A record is simply a 
sequence of bytes in memory, starting at an 
even address, of which the fiist four bytes 
are reserved for use by the radix sort 
routine. Byte five is the first byte of what 
the caller of the sort routine actually 
considers to be data. Figure 8 shows the six 
cards used in the example, depicted as a 
linked list of records as required by the 
routine. 

The record at 00 01 20 4C is the fiist record 
in the list. The first four bytes contain the 
address of the second record in the list, 00 
02 41 BO. The remaining bytes represent 
the data of the first card, which have been 
arbitrarily represented in ASCB. In ASCII, 
hex 41 ,■?! 31 34 represents "A1J4". Notice 
that the first four bytes of the sixth record 
are all zero; a zero in the "pointer to next 
record" field has been reserved to mean that 
there are no more records, that this one is 
the end of the list. 

Each bin is in fact a queue— that is, a linked 
list of records for which a head and tail 
pointer are maintained. Since a radix of 256 
requires 256 bins. 256 queue headers are 
needed to keep track of the distributed 
records. For efficiency reasons these headeis 
are broken into two tables. The first is a 
table of 256 4-byte entries which point to 
the first (or HEAD) items in the various 
queues. Entry points to the first record in 
queue 0. etc. The second table is also a table 
of 256 4-byte entries, but entry of this 
table points to the last (or TAIL) record in 
queue 0, etc. An empty queue has a head of 
0. and its tail points to its head. The 
structure of the bins is depicted in figure 9. 

THE 68(KX) ASSEMBLE' CODE 

Knowing what the hopper and bins 
actually look like, it is easy to pseudocode 
the radix sort. The listing at the end of this 
article contains pseudocode in the routine 
headers. The actual code is broken into 
three routines-the user calls RADIX_SORT 
directly, and it calls the otheis. 

The 68CXX) has a large set of general purpose 
registers which make a convenient 
parameter passing medium for assembly 
language routines. This implementation of 
the radix sort uses registers for its interface, 
although changing to a Pascal or C interface 
is trivial. 



Four registers contain arguments to the 
routine: 

— D() contains a flag indicating whether 
the sort should be in ascending or 
descending order. 

— Dl contains the offset into the record at 
which the key field starts. 

— D2 contains the length of the key field, 

— AO points to the first record in the 
linked list of records to be sorted. 

For example, to sort a linked list of records 
in ascending order on the contents of bytes 
11 through 18, 

— Set DO to to select an ascending sort. 

— Set Dl to 11. 

— Set Dl to 8 (there are 8 bytes from byte 
11 to byte 18). 

— Set AO to the address of the first record 
in the list. 

— Call the R A DIX.SORT subroutine. 

On return from the subroutine, all registers 
will be the same as they were except for 
AO, which points to the first record in the 
new, sorted list. 

Extensive use was made of the structured 
syntax and macro capabilities of the 
Motorola 68000 assembler to enhance the 
readability of the code. However, not all 
68000 assemblers will have these features, 
so an understanding of the actual code 
produced is necessary, 

The SAVE and RESTORE macros use the 
MOVEM.L instruction to push and pop 
groups of registers to and from the stack. 
The meaning of the FOR macro is 
straightforward: for example 

FOR D5 - #FIRST TO #LAST DO 



ENDF 

produces code that looks something like this: 

MOVE #FIRST,D5 
LOOP CMP #LAST,D5 
BHI OUT 
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ADD #1,D5 
BRA L(X)P 



OUT 



Similarly, 

REPEAT 

UNTIL <E0> 

produces code on this order: 
LOOP 

BKE LOOP 



The most interesting section of code is the 
ten instruction loop in the internal 
subroutine SORT.JNTO_BINS, since this loop 
is executed once for every character of the 
sort field in every record to be sorted. It is 
the only portion of code which affects the 
performance of the sort on large numbers of 
records. 

The 13 microsecond performance of this 
loop can be attributed largely to the ease 
with which the 68000 handles 32-bit data, 
and to its linear 16 Mbyte address space. A 
16-bit processor can only access more than 
64 Kbytes of memory by constantly 
changing segmentation registers; this would 
significantly decrease the performance of 
the sort. 

THE NEW 68020 

As fast as the 68000 is. Motorola's new 32- 
bit processor called the 68020 is far faster. 
While fully upward compatible with user 
mode software written for the 68000, the 
68020 is a substantially improved design. 
The following enhancements contribute to 
the impressive speedup in execution of the 
radix sort algorithm: 

— The standard clock rate of the 68020 is 
16.67 Mhz, as opposed to 8 Mhz for the 
68000. Assuming you could construct a 
no-wait-state memory for the 68Q20. the 
clock rate alone would cut execution 
time in half. 

— The 68020 has a 32-bit data bus, twice 



the width of the 68000 data bus. The 
critical loop does four data accesses, three 
of which are for 32-bit entities. The 
68<XX) requires two memory cycles to 
read or write such a datum, while the 
68020 only requires one. 

— The 68020 adds new instructions and 
addressing modes which allow the 
critical loop to be rewritten from ten 
instructions to six. 

— The 68020 can access memory in three 
processor clock cycles, whiJe it takes the 
680t0 four. 

— The 68020 has a built-in instruction 
cache. The tiny critical loop would be 
cached immediately and thereafter could 
be fetched at a rate of 2 processor clock 
cycles per 32 bits. 

— The 68020's execution unit is decoupled 
from its interface to memory. Therefore 
the chip does not wait for a write to 
memory to complete before starting to 
execute the next instruction. 

Just for reference, the meat of the code for 
SORT_INTO_BINS looks like this for the 
68020, with only six instructions in the 
critical loop: 

CLR DO 
BRA TEST 

REPEAT 

MOVEB (A0,D4.L),D0 

MOVE.L A0,([A6,D0»4l) 

MOVEL A0,(A6j:X)»4) 

MOV EL (A0),A0 



TEST 



TST.L AO 



UNTIL <EQ> 



Assuming no-wait-state memory and 
longword-aligned data, the critical loop 
would take 36 cycles. That amounts to less 
than 2.2 usee on a 16.67 Mhz 68020. fully 
six times as fast as an 8 Mhz 68000! 
Remember that wait states on memory 
would add to the execution time, but the 
on-chip cache would render acceses to 
memory for program code unnecessary— 
therefore wait states would only affect the 
four data cycles. 

SUMMARY 

The choice of an appropriate algorithm and 

the selection of hardware with the 



W 
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necessary architectural features for efficient 
execution of the algorithm are both essential 
in achieving high performance. If your 
application demands fast, stable sorts of 
large amounts of data, then the radix sort 



algorithm— and this implementation of it on 
the 68tXX) microprocessor family— should be 
of great interest. 
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ti\9 (tha sort Is to ba dascandlng) 

For aach bin froa loaast (S003 to hljnast (IFF) 
If tha bin is net aacty 

tdd tha contents to tha FRONT of tha big linked list 
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CJLLlCT.jlNS: 
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Inltx*l>i* thi big linktd li«t io o* «iipty> 



Lf tr« SCr-t 11 tc t?t T^canctin^ 

^ai- »ter cln Iron nithtit (^FF) to la>*»t (tOO] 
If tna lair IS not tmpty 

ade tn« c»nt«nif to tn» fROr,T of tnt big link«d lilt 
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C2 <-* cointar to hand racord in bln« 
If tn bin i«n't •icty^ 

, *1 <-- pdlntar to t*il rttord in bin, 
. )1»k* thit bin't l*it antry point ts sur 
• big Hat fir»d makt tha haad polntar of our 
big lilt ooint to t».t bin'i fint antry. 



tmr 



:!»» (tn* sort 11 To ba ciascandln&> 

r-if tfcK bin fron lotaat (>00> to hlEhast <tfF) 

If tria Cln is not aapty ^ 

Icid tha contanti to tha F8CNT of tha bl9 llnkad litt 

sLSc Elst (ha tf^inta It In dafcanding ordar)^ 

FCO 31 « «4-FIRST.9IN TC »4-l«ST.3IN Br tl, 00 



MOvE.L 0<4S.;i>/C2 

1? <Hi? THiH 
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ftti.i, iC»<»1) 

'CVE.L :2>lO 
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itSTORE 01/C?/«1 
(IS 



D2 <"- polntar to hafld racord in bin. 

If tna tin isn't anstv^ add it to front of list: 

. 11 <-- eointar to t»il raeard in bin. 

• ^«ka thia bln'a lait antry paint to our 

. oiS ll*t and naka tha haad Potntar of aur 

. 019 lilt point ta tha bln'i (irit antry. 
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RATBAS - A BASIC Preprocessor 

By: Mike Johnshoy 

707 Continental Circle, #1213 

Mt View, CA 94040 

TEL (415) 967-2048 



separated by colons. However, a more 
general method of grouping statements Is 
to use the curly braces allowed In RATBAS 
programs. For example, the following Is a 
legal RATBAS program: 

x-0 repeat print "HI" : x-x+1 until (x-10) 



Overview 

RATBAS Is a program written In TSC XBASIC 
which allows the use of several additional 
control structures when programming In TSC 
XBASIC. These additional control 
structures Include repeat, repeat-untll , 
while, break, and If-else statements 
spanning many lines. In addition to the 
new control structures, the RATBAS 
preprocessor allows the use of 'curly 
braces' - the { and } - to group 
statements. 

Another feature of RATBAS Is that It 
allows comments on the same line as 
program code. Also, an 'Include' function 
more powerful than XBASIC's 'LIB' Is now 
available to the programmer. 

In operation the RATBAS preprocessor reads 
a text file containing the RATBAS program, 
and creates a new file which will be 
accepted by the TSC XBASIC preprocessor. 



RATBAS Crammar and Examples 

The control structures added by the RATBAS 
preprocessor are described by the 
following grammar: 

statement -> 

repeat statement 

repeat statement until ( condition ) 

while ( condition ) statement 

If ( condition ) statement 

If ( condition ) statement else stateme 

break 

( statement list } 

In the grammar above, 'statement' Is any 

single legal BASIC statement In TSC 

Extended BASIC. The 'statement' may even 

be several statements on the same line 



Certainly ugly code In anyone's book. The 
same program could be written In a more 
readable style by using new lines and 
Indentation to better show the program 
flow. The same logic Is presented below In 
a more readable way: 
x-0 

repeat { ! print HI ten times 

print "HI" 
x=«x+l 
) until (x-10) 

The term ( condition ) In the grammar can 
be any legal comparison or boolean 
expression. Notice that the condition Is 
not followed by a 'then', but must be 
enclosed In a balanced set of parenthesis. 

The statement following a repeat will 
always be executed at least once - and If 
the repeat Is not followed by an until ( 
condition ) It will be repeated forever. 
The while statement differs from the 
repeat In that the condition Is tested 
before the statement Is executed the first 
time, and the statement following the 
condition may never be executed at all. 

The break Is used In conjunction with the 
repeat and while statements. When a break 
Is encountered Inside a repeat or while 
loop, the loop Is exited In the same way 
as If the condition had suddenly been 
tested and met. If repeat 
statements are nested at 
break Is encountered, only 
nested loop Is broken. 



and/or while 

the time the 

the deepest 



nt The If-else construct of 
more powerful than the 



plain vanilla BASIC, 
the following code: 



RATBAS Is far 
If-then-else of 
For example, look at 



x-1 

repeat { | count to five 

If (x-1) print "one" 
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else If (x-2) print "two" 

else If (x-3) print "three" 

else If (x-A) print "four" 

else If (x-5) print "five" 

x-x+1 

} until (x>5) 

Additional features of RATBAS Include the 
ability to put comments on the same line 
as program code. Comments are Indicated 
by a ! , with everything from the ! to 
the next carriage return Ignored by the 
preprocessor. 

As In TSC XBASIC, lines may be continued 
logically on to the next line by ending a 
line with a '\' character. 

Better examples of all the constructs can 
be found In the listing of the RATBAS 
preprocessor Itself. 

Preprocessor Directives 

There Is only one at this point. To 
replace the XBASIC 'LIB' capability, 
RATBAS allows the programmer to type the 
line llnclude filename. The # must be the 
first character on a line, and Indicates 
that the following Is a preprocessor 
directive, not XBASIC. Included files may 
Include other files, and be nested so long 
as no more than 12 files are ever open at 
one time. 

Error Statements 

The RATBAS preprocessor Is capable of 
finding and flagging several errors. They 
are as follows: 

Illegal until - until not preceded by a 

repeat 
Illegal else - else not balanced by a 

preceding If 
Illegal right - no balancing left 

hand brace 
unexpected end-of-flle - end-of-file 

encounterd with unclosed RATBAS 

control structures 
Illegal break - break without 

repeat or while 
missing double quote - unbalanced quote 
missing single quote - unbalanced quote 
missing left parenthesis - unbalanced 

parenthesis 
missing right parenthesis - unbalanced 

parenthesis 
Includes nested too deep - more than 12 
files open at once 



Each of these errors is printed along with 
the source file line number being 
processed when the error is detected. 
Note that if files have been 'included' 
that the line number given with the error 
message is the total number of lines 
already processed when the error is 
encountered. 

When entering the source code for this 
program you will notice several additional 
'compiler' errors. The capability to 
detect these errors was added to ease the 
development of the preprocessor, and they 
should never be encountered in normal use. 



Getting RATBAS to Run 

It's unfortunate, but you're going to have 
to type it in (unless you can find it on a 
bulletin board - I'll try to upload it to 
FLEXNET). The listing to enter is not 
the RATBAS source listing, but the TSC 
XBASIC listing. Then you can run the TSC 
Precompiler on that and have a working 
RATBAS preprocessor. If you wish to work 
on modifying the preprocessor Itself, you 
should enter the RATBAS source listing of 
the RATBAS preprocessor and make your 
changes in it, recoapiling the ianproved 
vesion with your original bootstrap 
version. 



The Future 

An entire series of RATBAS utllites is in 
work. These utilities Include a RATBAS 
Beautlfler, to produce nicely indented 
listings of ill typed code. Such a 
utility might help detect errors where the 
programmer has used Indentation to show 
program flow that is contrary to that 
understood by the preprocessor. Another 
utllty is a combination of a program 
editor and verifier, which does things 
like counting parenthesis and curly 
braces. The editor portion allows a 
program to be 'outlined' in terns of 
procedures or subroutines and for the 
writer to move around in text by procedure 
name or outline level instead of just 
scrolling back and forth by line number. 
The poBslbilitles are endless. The author 
is interested in hearing of any ideas or 
work along these lines. 

RATBAS source is available from 68* Micro 
Journal on disk #17. See page 62. 
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*SHZJR* Plccaburgh FA 1S238 

by 01t« Software for I6K ECB or largar ayacaaa 

Box 11224 

SHRINK la a machine language utility 
that will remove all unnecessary spaces 
from BASIC programs. It comes with a page 
of Instructions that describe Its operation 
and explain how to relocate the program to 
run on 32K systems (it Is sold for 16K 
systems). 

Removing unneeded spaces from BASIC 
programs will produce programs that use 
less memory and run faster. Unfortunately, 
while SHRINK does exactly what It claims to 
do. It Is does not save significant amounts 
of memory or time. SHRINK would save more 
memory If It would delete REMarks and/or 
pack program lines together. For every 
line number that Is deleted from a program 
4 bytes of memory will be saved. Depending 
on your coding style, SHRINK may strip an 
average of 1 to 3 blanks per line. 

Shrink does exactly what It claims to 
do, but I can't recommend It because It 
won't really save a typical BASIC programmer 
much time or space. ^y ^roy Br<.i.y 

COCOCOPI 

By TBI SATAKAS 

420 Parguaon Avanue North 

Ba^ltoo, ODtarlo, Caoada L8L 4T9 

$14. 9S (Caoadlan) for I6K4 ayacaaa 

COCOCOPY Is bound to be a workhorse In 
any cassette users software library. This 
program will load, save, rename, or 
relocate any standard CoCo tape. 

To use COCOCOPY Just set the tape up 
In the recorder and CLOADM It. The 
program autostarts, so once It's loaded you 
can get right to work. A menu Is displayed 
showing all of your options. In addition 
to loading, saving, renaming and relocating 
programs COCOCOPY will also allow you to 
review a tape with single key control of 
the AUDIO ON/OFF and MOTOR ON/OFF 
functions. This allows easy positioning of 
tapes without pulling plugs out of your 
recorder. 

One of COCOCOPY's strong points Is Its 
ability to load a file with I/O errors. 
This may let you recover your only copy of 
an Important data file or program. The 
file you create may not b« lOOZ correct but 
at least It can b« loaded for fixing. 

Another strong point Is the ability to 
relocate a machine language program. This 
will allow disk users to load In a progran 
that they couldn't normally and then save 
It so that It will load at a new address. 



This Is possible because COCOCOPY loads 
programs Into a BUFFER and Ignores all 
actual load and execute addresses. Once a 
program Is loaded It Is easy to change both 
the load and execute addresses. Note that 
this relocation will work only If the 
machine language program Is written In 
Position Independent Code. 

Unfortunately COCOCOPY has no 
provisions for direct saves to disk. This 
would be a nice feature for new disk users 
with large tape libraries. Using the 
present system the programs must be 
loaded, relocated, and saved to tape, then 
the new copies must be loaded In and saved 
In DISK BASIC. 

Unlike some cassette based software, 
COCOCOPY would load and run with toy disk 
controller Installed. Even so, tape and 
disk users will need to turn their 
computers off and back on again to regain 
control of their computers. COCOCOPY Is 
RESET PROTECTED. 

COCOCOPY claims to be able to load and 
save some types of autostartlng tapes. I 
don't know If this Is true since I dor't 
have any such tapes around the house 
besides COCOCOPY. COCOCOPY would not copy 
Itself. 

All In all COCOCOPY Is a good buy for 
tape users. If It could save directly to 
disk It would be a "must have" program for 
disk users who buy a lot of machine 

language games. by Troy Snialey 
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FORCE INTRODUCES LOWEST COST UNIX-on-VMEbua 

1.0a Cacoa, Ca., SapC. 4, 1S8S Forca Coaputar 

Inc. today announcad a coaplata, two-uaar VHEbua 
davalopaant ayataa with atandard UNIX Syataa V. Callad 
ttaa atcrararea-l, tha naw high parforaanca UNlX-gn-VKE 
ayataa la. tha flrat vary low-coat product baaad antlraly 
on Induatry-atandard VKEbua boarda. 

Tha ayataa laplaaenta AT4T'a UNIX V, Rclaaaa 1,0 on 
tha 68010 alcroprocaaaor, with 1 Mbyta of faat aaln 
aaaory, 1 axpanalon alot and 2S Mbytaa of Ulnchaatar 
atoraga (22 HBytta foraattad). alcroFORCE-l Includaa two 
uaar porta, plua printar and coaaunicatlona porta, all 
daUvarad In a coapact 16~ x 16* daaktop packaga. 

According to Jla Craan, Managar of Application 
Englnaarlng at Porca Coaputar, 'Tha ^cr*F#KCI-l la 
prlaartty a aoftwara daalgn tool. Thla Is an axcallent 
aachlna for daatgnara who want the privacy and fraadoa of 
thatr own aachlna and who do tiot want to ba cantrally 
lockad Into a aultluaar aaln fraaa. It la aapaclally 
aultad to OEH'a Intaraatad In an Inexpenalva daialopacnt 
ayataa running UNIX for two prlaary uaaa; they cati utlllxa 
It aa althar a atand-alona tool with dlract hardwara and 
aoftwara coapatablUty to largar VMEbua ayataaa or aa tha 
target ayataa." 

Tha ^craMACB^l provldaa the banaflta of tha advanced 
VMEbua architecture along with tha aany and varied UNIX 
uttllttee. Baetcelly, thle new aachlne coablnea the two 
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f •■teic-groutng otandardi on the aarke t . ■ ■ VMKbui and 
UNIX, for the lowest coat and hlgheat perforaance 
currently available. 

According to Peter Schaltz> operation ayateaa 
apeclallst at Force Coaputera Inc. In lAa Catoa, 'Ve've 
been running UNIX benchaarka on both new producta, the 
alcrvPOICB-l and It'a 'big brother', our alx uaer 
STAKMAft-JU. koth products are Identical under alngle- 
uaer benchaarka and have run «a feat or faaccr than 
Industry's top alx benchnarked ayateaa In aany 
cstagorles ." 

Peter Schmlci goes on to note that the featurea of 
the alcroFOBCE'a CPU-3VA aakes the aachlne Ideal aa « 
UNIX engine, 'The WW bypass, working with 32 Kbytes of 
high apeed local static ram (vlch no-walt-atatea) allowa 
rapid execution of UNIX ayaten calla. Thla can be seen 
In the sccoapanylng (Byte Aug. '84) benchaarka." 



tear S«n. 

Plvla* »ili rht fallpyinq Infencttsn an la lAt ritiMri er *M Hltro JoumtU 

Th« turrtni rsvtvlDnf af aur PLtl laflwjrt product ■ ir« •■ foUSHii 

MCI I.4J 

IMCC 7.SS 

um i.M 

»>aw «.6tW 

H./V t.lt 

MltOlt ■'■ U.I.* 

SCIEftlTM 111 ., 1.200 

P>IM II >.M 



u*r u»*r «*M Mltr.tt td upuradff hti dtic to Ida <vfr«At rtvltlMi •Mould ratum tkt 
original ditc I«««l1ad u1t» ttia »r«A«ct to tit vita ^s^aanl far lk« vvfrasa, IK* 
i««ratfa aoata ara aa lollovat 

tiac va>flradi anlr (er inr BrqSticI 129.00 

alac ina Nanual upgrad* lor n.f9 or ICSfMTOV HI ....,.,,...,, liif.OQ 

»iac and Nat-hjal upsrad* lor all otriar product! liS.OO 



rcaturcB of the BlcroFORCK-I Include: 

68010 CPU, 68451 HHU and 68450 DMA. 

Four aerial I/O channela allow for two uaera, one 
printer and one coonunlcatlona port. 

32 Kbyte no-wa 1 t -a t a t e SRAH allowa high apeed 
operation of the UNIX kernel. 

Haas aeaory Included 5 1/4" floppy and 5 1/4' 
Wlncheater hard diak with 25 Mbytea capacity unforaatted 
22 Hbytea foraatted. 

UNIX Veralon 5.1 Including C and Fortran 77. (with 
Pascal, Baelc and UNIX 5.2 available aoon.) 

1 Mbyte OilAN on VNEbus for global aaaory. 

Open alot for uaer application board, addlclont aeaory, 
etc. 

Rapidly growing Force Goaputera Inc. la now the nuaber 
one Independent auppUer of VKKbus producta and ayaceas 
worldwide. The coapany la noted for Ita broad baae of 
VHEbua producta that offer cuatoaera the beat 
prlce/perforaance rstloa In the aarket. Force la a 
■ ul t Ina t lonal Corporation with headquartera In l.oa 
Gatoa, California and aubaldtarlea In Munich, Weat Ccrasny 
and farla, France. 
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WINDRUSH 



A«pv»M^«w«. Mann* tm7* «SA 



Ma ara curr«ntlir flMllaino • lofluara up«ra«a far aur (man tl Vi<n Pr«trM>*r 
<«arL«l*d In tht U.I. br fitnlR) «hlch aUI aoabli il to 0rogra* ifiM davicaa 
(ro« iNtEL and AMO. Ua iLCi varalan wlU M ralaaiM •hontr ^Uh (ha (Uf 
varatgni fe^Lontng In ahout i waati. lAfa latait an^tancaaant an*«la> Idia product 
la handii th* futl aoactrua of C^MOM iro* Ik a 6 rl9ht w« to Ua latatt MK p A. 






VKHda C. tlckliuon 

Oasf CPU 

Par your- IsttSf dstsd Jurw da* l9aS I mm ratwt>nlng ay 
copy of FHATC ror updAttn9 to voralon 3* O* Duo to a probloa 
Mlth ths disk Oi-lvo thst I pur-ehasod ntth FMOTC thla dish 
Mill r>o longer boot UP. I atsrtod up ths syatsfp Mlth ny old 
drivos and had msdo copios boforo 1 had ths problvai so I 
didr«*t rwod ths orlglnsl disk. Osts-Coaap rspsirsd tha disk 
drlvs hoaavvsr and it la still aaarking fins. Tha proaapt 
courtoous oorvlcs nss flrsstiy apprsciatsd. 



Best Wishes 
R. E.BASSETT 
ties nARBMOLL 
MrCATRlOOC. COLO. 
•0021 
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'U Nicro Jdurral 

atlnt Son dllUant 

MOD Cataandra S«lth 9<m* 

Nlitan 

lama •It. irHl 
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rL«*lr p4l> thll Inferavtlon gn t« tht rtt4«Pt of 'At Httr* JOum^ls 

Tha lat*«t ralaaaa of tha fllJl vmlen of (ha Jaoai ncCoah 'C C«<«p1L»r, ravlilgn 
nu^ar M.K:Sj. co^i wtth « •uc»i raviaad st*ndartf i.ibr«>-r cortalnlAf baat mm 
uiaful la«lh>ra«. Tn* «ati HtUcMav f««1ll(r la rw^iiem fILa Proaaailng. Craatinfl, 
ocanlng, cloalnff sAd *av«fe1o«* to *f*t 0C«(al«n (n * FV<1 rante* fIVa *r* ««m 
paaa1»t* uafo^ Ulll* cmihii Iblt U^ai'ir fvHlian aalla. 

Iha I/O taction 01 tha (Ibrirr Kaa b«fn cv^latatr rt-«r<tlt(t# tfHar»orat1"« tha 
•QtlfTr 10 iccaia Printofi or V*t otitar 4av1caa attachatf to tka Xfwmm, 1«ra(r»al 

■ ctaai tai bran tAhantad ctmildarably ^f *\\v»\^ Diraoalan mch ai diPth, 

■ ItftK, p#uar antf atho to ba altar»d. tha tilfhar lival I/O fuMllona. auch at 
*pr1nll()*« ha«a aLao bvvn r«a1a*4 •« th»t «ir«a«a an bwtfarad tn aach 
41r*c|t«n. fhia aataa lor araatar iftlclancr ond atooMflaa kvrbo«r4 Irvwt 
•ditin*. 

•thar ck«n««« liKlvtf* a ftftctiv* to |l*« diroct accaii lo tha fRl ann, bf Moular 
dvuMtd, thfl ft^eltoni 'towvcwr' ond *tolo«ar', lor «bw«tint ilta caaa of Vitiara, 
no* thilk that ihalr arr»api(B ara alraatfy Lattari. 

Tha CMgftai' lt«*lf nw r*«opnU«« im ■wn|l«rt«d c>>ar* trp* mMcIIi la m atflht bM 
MJait with rialija« D-791. T^ara hpva baaf* a ««i^ar of «ln«r oodtf l<oi4«n« lo t*« 
iMa t«narat4en laci 1«A Mhtcb raiwit In lltarlor ond foitar codOs 

4 n«M choptar hat M«*« a<dag to T^a imajiI Mh«l. 4t»«ri^a ih« tachnt«w*i Mt«« lo 
9«fwr«t* *a(«fid %\v^* t«4K. Tha aowrca for a atopla irata* ««niiof la Oiavttod 
aa a «9r||n« ««ai^»lt «f how flonuLE <e«p It aaaKy ganaraiod watrig ii«(«ah *c*. 

Ar>r uiar mth varalon 7S,i:X et tba KcCaih *C' coapllar oor obtain a diac and 
■amjit upvra4>» for l3S.00s tha original McColh 'C' dlaa fhauld ba oant to ua olth 
ft«r*nt. w* «CE*pt VIIA ond HAlTCa card*, pfaiaa aLiow 4 oMka for I** r«tf^ tr(p 
».» (ntamat(or>al poai (■ n*i wMt (a watd to Mill 
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0««r Don, 

Ml r«K\JlarlV r«ad In th* pacaa of 6fl* Micro Journal 
pral«a for tho «fricl«nt «nd friendly •«rvlc« or 
fpvci ric coiQPanltfB . What vi« h«v* never eetrn In tUe 
reveree. thenkd to e customer from e euppXiei*. 
Well we et Micro Concepte would like to Chenk 
throuch your PiereKlne WillLan Brooker rro« 
Queenelend. Auetrelle for hie kind reaerka In the 
Oe«ejBber leiue end elso Ken Johneon rrojo 
Adelelde, South Auetrelle v^ho hee reelly nede our 
dek". 

Froa the other aide of the world he arrenBed for 

delivery by nend to vy euper younc lady Leeley, tn* 

■oat beautirul bouquet of flowere - end ell we did 
wee proceae hie order* 

Thenke Ken - you 've cot atyla. 

Whl 1 at we ^rm paeelns preiee. pleeee thenk your 
cane for the excellent ad they cenereted f roa the 
hurriedly produced copy we eent to you. 

Whet ere Che chancea of colletlnc throuch your 
readere a worldwide lt»t of 6A09 orlenteted 
blLlboerda for a future Ivaua? a llac of phone 
nuBbere. o&eretlnc tlnee, protocola. epeciall Ciea 
eve wo«i«f wr fvol-^urv. bw" of coneldereDlC 
Intereet to your reedere. 

Kind Recarda 
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Dear Sir: 

I would like to take a moaent of your tine to thank you 
for the Bubscrlptlon to your nagazlne. It will be 
refreshing to have soaethlng outside the realn of lEH 
Coapstlbles In the lab. I personally own a 6809 oachlne 
and aaaze the rest of the people In our lab with Its 
power. Tbla usually aanlfeata Itaelf In trying to use OS- 
9'a power and aultltasklng coamanda while running under 
NS-DOS. 

Thank you again for your generouslty. 

Sincerely, 



C. WllUam Kllngler 
QA/Halntenance Director 



' Don HtlMtaii 

'4a HIerc Journal 
(100 Ciaian4r< Saillh 
mxion TN 1T30 
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Oetr Editori 

t had tMo probltac Nith Ron Voigts' directory 
alphib»tl!>r proqraa Hhlch appears in th* Novvsbsr 
'Baiic OS-?* colunn, although th( prograi apptarc to 
bi Haulett. 

The Hrit problei relatd to th« typi font ui*d In 
6B' nicro Journal. Then Isn't *nough (if any) 
difference between lower-cace 1 fel') and the nuaber 
1 (one). Only after looking up each of the cycte* 
callc in the C eanual, did 1 ditcover that the second 
arguaent to 'Iseek' is 'OL' rather than '01' as I 
originally transcribed it. Use of a better font or 
use o< upper-case L Nould have aade this clearer, 
although I would not have learned as auch. 

The second proble« I encountered ii due to a bug in 
the C run-tiae routine '.stkcheck* . After correcting 
the typographic problea, the prograa correctly alpha- 
betized a short directory, but crashed OS-V at exit. 
Uhen run an a large directory, the prograa hung up 
coapletely before rewriting the alphabetized 
directory. 

This problea caused ne to look into the C aeaory 
aanageaent schaaa. The stateaent in the Tandy C 
• anual that 'the average prograaser neeil not be 
concerned with details of aeaory aanageaent* Is 
patently fal«e. Space for 'auto' variables is 
allocated froa the stack at run tiae. If the space 
required is larger ttian the default IK-byte space 
(such as is the case in the directory al phabetiser ) , 
'^stkcheck' should detect a stack overfloN condition 
and terainate inicutlon nith the staclc overflow 
aassage. 



H, 


ItOMI 


aeaory 


and ' 


larger 


thai 


check 


rout 


there 


IS 1 


".stkcheck" 


■ pace 


is . 


least) 


lyt 


prograi 


1 dat 


1 ^ 


lave 


works 1 


n al 


have auch 


• stkch 


leck" 


aodule 


on t 


betweer 


1 th 


instruc 


:tion 



ever, the data 
the absolute val 
n contents of 
ine, as coded 
enough space. 

thinks that al 
avail abl e f or st 
tea data in low 
a . 

coded a fix for 

1 cases, but I e 

asseebly langua 

is contained in 

he C library dis 

e '.stkcheck' 

of the routine 



area is allocated in low 
ue of the requested site is 
the S register, the stack 
by Klcroware, thinks that 

In f act , In this case , 
aost the entire &4K aaaory 
ack uit, thus causing <at 
aaaory to be overlaid with 

the problea which I believe 
ust point out that I do not 
ge experience an the iSOV. 
the •SOURCES/SYS/cstart.a' 
k. Place ths follouing fix 
entry label and the first 
'laax d,s*i 



pshs d save contents of d 
tfr s,d « -> d 

addd , s s » d -> d 

bcc fsterr branch If abs(d) > s 

puis d restore contents of d 

You can save one instruction by sandwiching the fix 
around the 'leax d,s' Instruction as follONS! 

pshs d save contents of d 

leax d,s originally first Initr of _stkchck 

tfr s,d s -) d 

addd ,»♦♦ d ♦ B -> d 

bcc fsterr branch If abs(d) > t 

In this case, the contents of D passed to '.stkcheck' 
are not preserved. 
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It lot* ttitt any profra* that hix aore than tOOO 
bytii of 'auto' varlablii xauld tncounttr thli probltn 
(at Itait on ttie Color Coiputtr). 1 ai turprtttd that 
) hav» not f*tn any itntioo o4 tht problta In any of 
tht lagailnai <i9' nicro Journal and Th* RainbOHl, 

filnctraly, 



oJatotJuf. £7^-71^ 
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Deir Doo , 

List tine irouod, I gave ao iotroduetioo to the iooer 
workiogi of XBASIC, aod proniaed ■ further diaeuiaioo 

00 "tokeoa". I'll eootioue uaiog the old FLBX2 
veraioo ■■ a model, ■■ thia is the ooe oo vhich I did 
all the detailed aoalyaia, aod I atill have all ay 
ootai to haod. 

OK theo , I gueaa I eao aaauae that scat readera koow 
that XBASIC eooaiata of "eoHUDda" aod "atateaeota". 
CoBBaoda are thoae ioatructiooa which will ooly 
execute froa the READY proapt - auch aa RUN, LIST, 
SAVK , LOAD, etc - but will oot execute if they appear 
io a prograa-lioe. Stateaeota, oo the other baod , 
will execute either directly, or ■■ part of a prograa- 
lioa. Whethar "coaaaod" or "atateaeot", ooe of the 
firat thioga that XBASIC doea wheo it eocouotera ao 
ioatruetioo io a prograa-lioe ia to coovert it to a 
code-ouaber - called a "tokeo" - aa we aaw io laat 
aooth'a esaaple, where "'" had got coovertad to ita 
tokeo, 69. For ioataoce, the tokeo for GOTO ia 01, 
COSUB ia 02, RKSUHK ia 03, aod lO oo. 

Why "tokeoiae"? The aaio reaaoo ia apeed of 
executioD. Without tokeoa, let'a auppoae XBASIC Beeta 
the atateaeot PRINT io a prograa-lioe. Noraally it 
would acao through a S t a teaeot-T ab le uotil it 
ideotified the word PRINT, which would theo poiot to 
the addreaa of the PRINT aubroutioe to be executed. 
With tokeoa, however, all occurreocea of the word 
PRINT have beeo replaced with ita tokeo 07, ao oow 
wheo XBASIC coaaa acroaa ao 07, it "koowa" that the 
7th locatioo io a Stateaeot Juap-Table ia the addreaa 
of the PRINT routioe, aod BINGO, it cao go atraight to 
work without haviog to do ao exhauative table-aearch 
each tiaa . 

Now we coae to ooe of ay aajor "beefa" about XBASIC. 
For aoae reaaoo - aaybe to coofuae the eoeay - TSC baa 
choaeo to eocode all coaaaoda aod atateaeota before 
tokeoiaiog thea. That ia to aay, it will, for 
axaaple, firat "haah" the ASCII codea for SAVE 
(Sa ,41 ,56,4}) ioto the codea 8C, 68 ,92,70, theo aearch 
through a haahed coaaaod table io order to ideotify 
thia oew code, aod fioally tokeoiae it froa the table. 
For thoae who are iotereated, the haahiog procedure 
iovolvea doubliog the ASCII code aod auhtraetiog IA 
froa the reault. Thua E (ASCII 4S) becoaea 8A by 
doubliog, aod 70 by aubtraetiog IA. 

1 th<ok the reaaoo TSC doea thia ia to aake it harder 
for a hacker to ideotify where theae tablea lie, aa a 
BKX-ASCII duap would ahow oooe of the faailiar worda 



io the ASCII aectioo. Io that caae, why oot do the 
aaae with KDIT or ASMB7 Haybe TSC would care to 
eolighteo ua? Io fact, it deter* a dedicated backer 
juat a teeoay bit, but aa far aa I cao aee it baa oo 
other virtue at all. Io effect, all thia haahing aod 
dehaahiog cao ooly aerve to alow dowo XBASIG'a 
operatioo a little. 

Obvioualy theo, if we weot through theae tablea aod 
re-wrote the coaaaoda aod atateaeota iu oorsal ASCII 
we could aave XBASIC a lot of tiae io eocodiog aod 
decodiog the haahed foraa. It goea without aayiog 
that io additioo to coovertiog the tahlea, we would 
alao have to NOP out the haahiog aod dehaahiog 
rout ioea. 

Let'a try that. Now that we koow how to haah a word 
like SAVK, let'a acao aeaory for the haabed aequeoee 
80,68,92,70. Io my old FLEX2 veraioo thia oceura at 
locatioo 0682. So we proceed through the table, 
"dehaahiog" aa we go, uotil we coae to coDoaod SCALK, 
with tokeo OK, which eoda the table. Now for our 
firat aurpriae. What'a thia weird coimaod with tokeo 
OD77 7I You dido't koow that XBASIC baa a coaaaod 
T('19, did you? It'a certaioly oot aeotiooed io the 
Haoual. If you're curioua aa to what it doea, try 
eoteriog it io reapooae to the READY proapt. 1 woo't 
apoil your fuo by giviog away the aecret right here. 

Now we have to dehaah the Stateaeot-Tahle io aiailar 
aaooer. The firat atateaeot (tokeo 01] ia GOTO, which 
you ahould readily haah ioto the aequeoce 74,84,81,84 
aod locate it io mtmoiy (io ay exaaple thia oceura at 
addreaa 0FF3). Here you will dehaah all the way 
through the Stateaeot-Table, which ruoa atraight ioto 
the Fuoctioo-Table (coiMeocing with FN - tokeo 34) and 
ioto the Operator-Table, which haahea the 3 logical 
operatora NOT, AND aod OR, eodiog at tokeo 60. The 
reat of thia table ia takeo up with other ayabola, 
auch aa >, <, -, (, ?, etc., which TSC dido't bother 
to haah. Note, by the way, that the tokeo for "T" ia 
the aaae aa that for PRINT. 

Fioally, we auat locate the haahiog aod de-haahiog 
aectiooa, aod get rid of thea. The haahiog aectioo 
cao he ideotified by the code 

48 ASL A Hultiply by 2 

80 IA SUB A #$1A 

aod the de-baahiog aectioo by ita ioverae 

8B IA ADD A #$1A 

44 LSS A Divide by 2 

Replaciog theae 6 bytea with NOPa coapletea the whole 
operatioo. 

EXCEPT FOR THIS SVCGESTIOH. I like to ataodardiae ay 
coaaaoda. By that I aeao that if I waot to exit to ay 
Hooitor prograa, 1 doo't waot to be left vooderiog 
whether I ahould eoter HON, or ia it EXIT, or aaybe 
QDIT, or perhapa eveo PATCH (which waa the correct 
eotry for Diterwyk'a 8K BASIC). So ... while I waa 
about thia reaodelliog buaioeaa, I decided to 
ataodardiae oo the cv^tMod HON to return to Hooitor. 
Hakea aeoae, aod I would auggeat that progrBB-viitera 
develop a aet of cooveotiooal coaaaoda auch aa HON for 
exitiog to HOHITOR, FLEX for FLEX, aod ao oo. Of 
courae, by chaogiog XBASIC'a "KXIT" to '^OR" we'll 
have to bubble-dowo the aavad byte to the eod of the 
table, where we'll leave it aa ao extra 00, Doo't 
forget to aaeod all refereocea to EXIT to read HON io 
your XBASIC aaoual, if you alao decide to go thia 
route. 

That'a it for oow. See you oext tiae. 
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Dear Don, 
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Well, I gueit I've ju(t got Co keep raabliog on a 
little while looger oo the aubject of XHASIC, aa I've 
received 2 TESea ao far, aod (gueaa what?) oot a 
• iogle NO ... ao the Bajoritjr wioalll 

3. 



To clear up a point (I gueaa I took it for granted 
laat tiae) I ahould firat aeotioD that when I aay to 
NOP out a bit of code, the appropriate BEX bjrtea 
ahould be replaced with 01 in a 6800 ayaten, and with 
12 in a 6809. I'd alao like to clear up ooe further 
point - XSASIC will not actually BStf^ta a prograa any 
faater aa a reault of converting thoae tablea to 
ASCII, aa all atateoent-lioea have been tokeniaed by 
RUH time. Only operationa involving converting linea 
to a tokeoiaed fora (or converaely, de-tokeniaing then 
back to their original form) will be apeeded up. Thia 
includea operationa auch aa LIST, LOAD or SATE. 

OK ... let'a move up to the 21at century with 6809 
XBASIC, and repeat a aod which appeared in a long-ago 
iasue of 68HJ. I think it beara repeating here, if 
only for the benefit of newcoaera to 68zs coaputiog. 
Thia sod geta rid of tboae tireaoae "ERROR #73 AT LINE 
xzxx" type of arror-aeaaagea , and diaplaya the auch 
aore readable "ILLECAl. KXFRKSSIOH AT LIHS xzzz". In 
order for tbia to work, though, you will need the 
expanded EUtOtS.SYS on Service-Diak #19, or key it all 
in youraelf. Soaawhare in the vicinity of XBASIC'a 
addreaa $0B77, you ahould be able to locate the 
following aequence, where xx ia aoae code : 



XSASIC 


BASIC 


REPLACE WITB 


30 8D 00 z> 


30 8D 00 XX 


B7 CC 20 


17 P9 XX 


17 P9 XX 


BE CC IF 


30 08 XX 


30 C8 z> 


BD CD 3P 


17 XX XX 


5F 


BD CD 24 




17 XX zx 


12 (12) 



The extra 12 (NOP) will be needed only for BASIC, not 
for XBASIC. I iapleaented thia on ay ayatea long 
after I aoved up to 6809, ao I'm not aure what the 
equivalent code would look like in 6800 ayeteaa ,,. 
aorryl 

Soae further thoughta. XBASIC'a Inatruction-Manual 
containa two aajor errora - in ita explanationa of the 
STOP atateaent and the RHD function. 

Vhen a prograa encountera the STOP atat^eot, and ia 
then reatarCed with the CONT ceaaaad, it raa^a^ at 
Ck« bllt folloviat tha nm and not at the SIArS<Bri 
following the STOP, thua ignoring any atatcaeoca on 
the aaae line following the STOP. Depending on the 
nature of the prograa-bug you are trying to pin down, 
it ia aoaetiaea advantageoua to put the STOP aoaewhere 
inaid* a prograa-line , and at other tivea at the end 
of a lina. 

KND(X) actually generatea a nuaber in the range 

through 0.9999999 sot tb^oA 1, and ao the 

foraula given (to generate randoa iatagar* over a 
deaired raoge) ahould be aaended to read : 

U - (ML - HS 4^ 1> • RWDCO) ♦ MS 



otherwiae it will not generate ML. But leave it aa ia 
if you wiah to generate fractLoaal nunbera in the 
range HS up to, bat not iacladiag, HL. 

While on the aubject of randoa nuabera .... Don't «ay 
I didn't warn you. Right at the beginning of thia 
letter I told you I waa going to ramble on. Anyvay, 
I've alwaya found it a good idea to incorporate a 
known randoa-aeed in the RND-generator, by inaerting 
aoaething like the following aoaewhere near the atart 
of any XBASIC prograa (particularly a Caae) which uaea 
RMXX) : 

JO INPUT "Pleaae enter a randoa nuaber between and 

99999 (0 to allow the coaputer to chooae) ",X 
60 X - RND(-X) 

Thia it particularly uaeful if the prograa haa a bug, 
aa it ia poaaible to repeat the gaae aequence, 
coaaencing with the original random aeed (unleaa of 
courae a reaponae of waa made). It can alao be uaed 
in Che event of a really hard-fought gaoe, where you 
loat to the coaputer by a VERY aaall margin, and would 
like to try your hand all over again uaing alightly 
different tactica. Decimal fraction numbera are 
equally acceptable, eg 1234.S6789, as a reaponae. 

Now ay thoughta are really Tunning freel I gueaa it 
waa the word "Caae" juat above. Aa you well know, 
lota of gaaea include rulea or inatructiona for play, 
and uaually aak the player whether he naeda theae 
inatructiona. They take up a lot of roon in a^rary, 
and if they occur in the wrong place in a prograa they 
help to alow down execution. Beaidea which, after a 
while you don't need them any more, and yet you don't 
want to throw thea out in caae a oew player coaea 
along wbo'a not familiar with the whole ahebang. 

I aa now beginning to reaove all inatructiona froa 
prograaa, by judicioua uae of the SPLIT utility. 
After aplitting thea off, I uae the EDITOR to reaove 
all iteaa relating to XBASIC, auch aa lioe-nuabera, 
PRINT atateaenta, etc., leaving only the text which 
waa originally encloaed in quotea , (deleting the 
quotea tbeaaelvea) and renaae the file to <gaae.I)OC> 
or <gaae.INF>. Then I go back to the gaae icaelf, and 
aet up a aequence aoaething along the linea of ; 

50 INPUT "Do you want inatructiona (Y or N) ",Q$ 

60 IF Q$ - "N" OR QS-"n" COTO 80 

70 EXEC,"TTYSET PS-Y: LIST gaae.DOC: TTYSET PS-N" 

80 reat of gaae-program 

Talking about INPUT ... Each of ua koowa that PRINT 
atatementa can be chained, eg : 

SO PRINT "Your name ia ";N$i" and your age ia"iAZi etc 

but how aany of ua know that INPUT atatementa can alao 
be chained? Thua ; 

SO INPUT "What ia your oaae ",N$i"Tour age ",AZ; etc 

I bad never aeen thia aeotiooed anywhere, (other than 
in a DEC BASIC-PLUS Manual) and decided to try it out 
during one of ay exploration foraya into XBASIC. U> 
and behold, it worked I 1 1 

If you really want to apeed up your XBASIC prograaa, 
you ahould aake aore uae of XBASIC'a COMPILE coaaand, 
by firat aaving your prograa in the regular aanoer and 
then executing COHPILZ "file-name". The reaaon you 
need the SAVEd veraion «a well ia that you can't edit 
a CONPILEd prograa. It will have the extenaion .BAC, 
and can be fired up froa FLEX with the coaaand-line 
'XBASIC file-naae' or froa XBASIC itaelf with the 
coaaand 'RUN file-naae'. Now where waa 1} Ah, yea 
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... a . BAC file nornally cakea up a lot lea* room on 
diak or in acaory, and alao loada conaiderably faater 
thaD the regular .KAS veraiona. 

But have you ever Cried Co geC XBASIC Co LIST a .BAC 
file which ic baa in nemory? Ic will anap righc hack 
wich "SOURCE HOT PRISKHT", and yeC wa know iCa really 
Chere, beeauae iC baa do Crouble exeeucing iC. Would 
you like Co aee iC LISTedT SoaeoDe ouC Chere aaid TES 
(l hope) ao here goea ... 

FiraC load XBASIC, Chen execuce HON (or EXIT if you 
didn'c carry ouC my laaC nonch'a noda). Now, 
aoaewbere io Che vicinicy of addreaa $0900 ($0906 for 
XBASIC veraioD 19, and $090S for veraioo 24) you 
ahould look for code aoaeChiag like 6D C8 S7 27 xx 86 

40. The inporcanc byce i« the 6D change Chia Co 

39, Chen execuCe a jump Co XBASIC'a Varm-ScarC wiCh 
CHXBUG'a J 3, or ica enuivalenc in your Honicor. 
Now LOAD your .BAC prograa wich LOAD "file-name. BAC", 
and LIST. Did you ever aee auch a coapact prograa 
fornac? No wonder iC Cakea up ao much leaa roon in 
memory (or oo diak). Now you eee why you cao'c change 
ic if ic baa a bug in Ic. 7ou auac idencify Che buggy 
line, debug Che SAVEd .8A£ veraioQ, end re-COHFILE a 
new .BAC file. 

Removing inacrucciona, or COHFILing, will moac ofceo 
allow you Co run cboae REALL7 large programa which 
won'c 4uiCe fic inco aeaory ocherwiae, and ia 
preferable Co removing Cboae eaaaocial BEHa in your 
prograa. 

UhaC did you Chink of Che coaaand T[*]9 in XBASIC7 
FreCCy uaeleaa for our needa, don'c you agree? Buc 
^uice handy if you wane Co replace iC wich anocher 
conaand, aucb aa EDIT, which ia whac goc ae acarced on 
Cbia XBASIC Ching in Che firaC place. 

Ham ... iaema Co me I abould cue off abouc here, 
before I Cake up Che whole iaaue wich a eingia leCCer. 
In Che aeaociae, I''d appreciace aoae feedback froa you 
folka ouC Chere. For inacaoce, would you prefer a 
aCrucCured, CuCorial Cype of laCCer from ae, or a 
rambling, informal amorgaabord like Che above? 



Don Williaaa, 

68 Hicro Journal, 

S900 Caaaandra Smlcb Road, 

HixaoD, TN 37343 

Don, 



Sincerely , 



Hi 



} 



R. Jonea 
Preaideoc 



Where are Che HCIO ueera? Haa everyone given up on Chelr 
POCO COCO? There la acUl ouch Co be aaid for Chla Radio 
Shack rejecc. How abouC 44K of mamoty for acarCera. If 
you have a HCIO and wenC Co uae Ic for aomechlng ocher 
Chan a paper weighc, drop me a line ac Che addraaa below, 
L«C'a geC a HCIO uaera group acarcadll 

H. Franclaco 
10226 N. 29ch SC. 
Tampa, PL 33612 



gdlcor'a Noce 
a couple, buC 
heavy enough 
Juac wale an 
heavier) Radio 
paper welghca. 
If you coa 
like CO know. 
Chere la JuaC 
Chere never w 
poaced on chla 



O.K.. here la ay "dropped llae". I've goC 

noc much Co do wlCh Chem. Really noc even 

CO make paper welghc (If wind la blowing). 

d Chere will eoon be aome bigger (and 

Shack rejecca. They will aake much beCCer 

le up wich aomechlng uaeful, I really would 

Ic aaema Co be auch a neac package. BuC 

noc much aupporC aofcware for Ic. Gueaa 

111 be any offered by RS. Pleaae keep ae 



'"I -^ INC- 



Lloyd I/O Is a computer engineertrtg coiporaflon providing 
SDftwcfB end hatAvxjiB prockxts crxi ccnsufffr^ servicei 

19S3S NE GUSAN POSTUN D, Ofi 97230 (USA) 

PHOMI: (503] 66«-1D97 • TELEX: 910 380 5448 UOVD I O 

New Product! 

CRASMB" CROSS ASSEMBLER 
NOW AVAILABLE FOR OS9/68000 

LLOYD I/O announces the release of the 
CRASMB 8 Bit Macro Cross Assembler for 
Microware's OS9 disk operating system for 
1he 68000 family of microprocessors. In recent 
increasing demand forthte OS9/68000 version 
of CRASMB, LLOYD I/O has translated its four 
year old CRASMB for the OS9/6809 cxxj FLEX/ 
6809 to Ihe OS9/68000 environment. 

CRASMB supports assembly language soft- 
waie development for ttiese miaoprocessors : 
1802, 6502. 6800. 6801. 6303, 6804, 6805. 
6809, 6811, TMS 7000. 8048/family, 8051/family, 
8080/85, 28. and the Z80. CRASMB is a full 
feaKjred assembler with macro and condi- 
tional assembly facilities. It generates object 
code using 4 different fotmats: none, FLEX, 
Motorola S1-S9, and Intel Hex. Another format 
is available which outputs tt>e source code 
after macro expansion, etc. CRASMB allows 
label (symbols) length to 30 characters and 
has label cross referencing options. 

CRASMB for OS9/68000 is available for $432 
in US funds only. It may be purchased with 
VISA/MASTERCHARGE cards, checks, US 
money orders, or US government (federal, 
stale, etc.) purchase orders. NOTE: please 
odd 85 shipping in tt>e USA and use your 
street address for UPS shipments. Add 830 for 
all overseas orders. CRASMB for OS9/6809 
and FLEX/6809 cost 8399 plus shipping. 

You may contoct Frank Hoffman at LLOYD I/O, 
19535 NE Glison, Portland, Oregon, 97230. 
Phone: (503) 666-1097. Telex: 910 380 5448, 
answer back: LLOYD I O. Easylink: 62846110. 
See list of disiiibutors below. 



VISA. MC, COO. CHECKS. ACCEFTH) 

USA: LIOVI>IIO(M3M«1097). S.I.MBXAtWMSSt »«00| 

tOQiond: vtvowoy |0M14»aj$). W)nOfu>A(MM4a»l«?) 

S^manv: Iocl>lCoi neu laif6»i» atW. K»i»OW»or»ll>»i016741| 

AtofraNo: Porto VoOto tl*«traiMei (144 91tt) 

Japan: MlCfotioanli |04?4) 22-1741 tatkou (OSUlt-AOOO 

Xwlhrtkind: EboN AO (OM M 27 24) 

Svadan : Mle<«niatta(ScondlrKivlon AO CM* -iMSfSI 

K-SVfZ OaSMKMancll^SCVt WVfS 

AUCH OM9ke ana OMSta ua? a* •oavntfb or uovo to 



'68' Micro Journal 



January '86 



51 



Classified Advertising 

Tano Outpost II. S6K, 2 S'DSDD Drives, FLEX, HUMPS $895. 

HICROKEY 4500 Single Board Computer, Target 128X RAH, 

FLEX, FORTH, with optional 6502 CPU & RONS as advertised 

on p. 51 Dec. 84 68 Micro Journal. $2300. 

LSI 68008 CPU Card with Digital Research CPM/68K $350. 

l-PT-69 complete with Dual 5" DSOO Disk Systea and 

Controller, Includes FLEX DOS. 

TELETYPE Model 43 PRINTER - with serial (RS232) Interface, 

and full ASCII keyboard. LIKE NEW - New cost $1295.00 - 

ONLY $559.00 ready to run. 

S/09 with Motorola 128K RAM, 1-MPS2, l-ParaUel Port, MP- 

09 CPU Card $1990. 1-DMAF2 Dual 8" Drives with 

Controller $2190. 1-CDSl 20 Meg Hard Disk Systea with 

Controller $2400. 

I sill accept anr reaaenaUe ca«ater-Qff«T tt 
Call Ton (615) 842-4600 M-F 9 A.M. to 5 P.M. E.S.T. 

SWTPC 6809 S-09 Computer Systea with 40 MEG Hard Disk. 
Dual 8" Drlvea, 6 Serial Cards, 256 K Memory. Runs 
DnlFLEX. In Good Running Order. $2000.00 or BEST 
1-219-259-85U EXT 362 DAYS 1-219-674-9654 EVENINGS. 

Several 2HKZ 64X Static Ran cards, $75 each. Misc. SS50 



and SS30 cards, 
evenings. 



Call with your needa. 



(703)273-6629 



WANTED! I GIMIX #68 - Controller, will trade GDtlX 6809+ 

CPU and SSB DCB-4A Controller. 

Olck Ollendorf (201)852-6764 AFTER 7PM 

*** 

WANTED: Two Data Systems 68 Bottierboards. Prefer un- 
aasembled. Will pay reasonable price. Call Kickey (after 
7pm central) (615)-797-9963. 



SOFTWARE DEVELOPERS! 

YCKTVE JUSr BEEN GIVEN THE 8EST HFJKSOtiYEl 
ID GET OUR 68000/l)N«* DEVEUM'MENT SYST1;M 



THE VAH/«aK* aCROES 




VK'BXWaO StO.IM 

IfkJiMlrt: Trrrninid. V) Mb lunl dlvK. 
Max RAM. « fora MM) RKJIJIJJS* 



VK-axwjono jli.fo* 



KBfeLLEKS: 



IBin PC/D59 Compatibilitg 

Smoke Signal can add IBM PC capabiNty to your 0S9 
system for as little as $1195 plus softivere. 






TO ovTAvr Toua vmiMVA 
AT msa LOW max. ooirTACT> 

^ SMOKE SCMAL 

II IB. \V^O>( l*«VS 
llll»ie«0«»«) , T(«r«9ll>4!M 4««S 








Both boards designed to the 51 Inch disk drive footprint 



ESB-I 



$495 



ESB-II 



$595* 



SA008 mlcroproceaaar - 8Mhz 

I28K DRAM 

Up to 64K ROM 

Two asynchronous serial ports 

Two 8 bit parallel ports 

Floppy disk controller / up to (our Si' drives 



COMING SOON: ESB>IR 

68008 - 10 Mhz * 5I2K DRAM 



6B0O0/680I0 8. 10, or 12 Mhz 

Up to 1Mb DRAM 

Up CO I28K ROM 

Two asynchronous serial ports 

24 bit parallel port 

One 24 bit timer / one 16 bit timer 

Floppy disk controller / up to four 51" drives 

OS9/68K Operating System 

6SO00 - 8 Mhz w/l28K DRAM version 
Consult factory (or expanded configurations. 



3i" diskette footprint 



runs OS9/68K 



EMERALD COMPUTERS 



INC, 



(503) 620-6094 - Telex: 311593 

- I6SIS S.W. 72nd Avenue - Portland, Oregon 97224 
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OOHFILK& EVALUATION SERVICES 
By: Ron Anderson 

The S.E. MEDIA Dlviaion of Cospoter 

PubUablbg Inc., 

Is offering the folloiriog SUBSCRIBER 

SERVICE: 

oawrim oatrAUSoa ad n aldatim urotr 

Due to Che cooaceoc sod rapid updaciog aod 
eohaoceaeot of auaeroua coapllera, aod Che 
differeot uCllLcy, appeal, speed, level of 
coaaunlcacloo, aeaory uaage, ecc, of diifereac 
coapllera, Che following aervlcea are oow being 
offered wlch periodic updates. 

Thla service, wlch updates, will allow you vho are 
vary or confused by Che varloua clalAs of coapller 
vendors, an opporcuolcy Co review coaparlsoos, 
coaaencs, benchaarks, ecc, concerning che aaoy 
dlfferenc coapllera on che narkec, for the 6809 
alcroeoapucer. Thus che aavlngs could far offaec 
che aaall coac of chla service. 

Many have purchased coapllera and then discovered 
that the particular coaptter purchased either Is 
not the Boat efficient for their purposes or does 
not contain featurea neceaaary for their 
application. Thus the added expenae of 
purchasing additional coapller(a} or not being 
able to fully utilize the advantagea of Ugh level 
language coapllera becoaea too expensive. 

The following COKPILERS are reviewed Initially, 
aore will be reviewed, coapared and benchaarked 
as they becoae available to the author: 



PASCAL 



GSPL WHIMSICAL PL/9 



Initial S«bacrlption - $ 39.93 

(includes I year updates) 
Updates for 1 year - $ 14.30 

S.E. MEDIA - C.P.I. 

3900 Cassandra S«ltb Rd. 

Bluon. Tn. 37343 

(613) 842-4601 



OS-9^ SOFTWARE 

SDISK— standard disk driver module allows the 
use of 35, 40. or 80 track double sided drives with 
COCO OS-9 plus you can read/write/foimat the 
OS-9 formats used by other OS-9 systems. S29.95 

SDISK + BOOTFIX— As above plus boot directly 
from a double sided diskette S35.95 

FILTER KIT #1— Eleven OS-9 utilities for "wild 
card" directory lists, copies, moves, deletes, 
sorts, etc. Now includes disk sector edit utility 
also. $29.95 ($31.95) 

FILTER KIT #2— Macgen command macro 
generator builds new commands by combining 
old ones withi parameter substitution, 10 other 
utilities. $29.95 ($31.95) 

HACKER'S KIT #1— Disassembler and related 
utilities allow disassembly from memory, file. 
$24.95 ($26.95) 

PCXFER UTILITIES —Utilities to isad/write and 
format MS-DOS'" diskettes on CoCo under 
0S-9.AIS0 transfer files between RS disk basic 
and 05-9 (requires sdisk). $45.00 

BOLD prices are CoCo OS-9 format disK, other for- 
mats (in parenthesis) specify format and OS-9 level. 
All orders prepaid or COD. VISA and MasterCard 
accepted. Add $1.S0 S&H on prepaid, COD actual 
charges added. 



1 



SS-50C 
MEGABYTE RAM BOARD 



Full megabyte of ram with disable options to suit any 
SS-50 6809 system. (High reliablKty.can replace static 
ram forafractionof the cost, $895 for 2 Mhz or $995 
for 2.25 Mhz board assembled, tested and fully popu- 
lated. (Add $6 shipping and Insurance, quantity dis- 
counts available.) 

D.P. Johnson, 7655 S.W. CedarCresi St. 
Portland, OR 97223 (503) 244-8152 

(For best service call between 9-11 AM Pacific TIma) 

0^9 H I nadema/i, at micimw* and uotomia Inc. 
USOOS II a IradamaA ol Mtcrason, Inc. 




68000 68020 68010 



68008 6809 6800 

Write or phone for catalog. 

AAA Chicago Computer Center 

120 Chestnut Lane — Wheeling IL 60090 
(312) 459-0450 



Tachntcal Canairitallofi naHaMt rrxnt viMkiMri Irotn 4 PH M • Ml CST 
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S-50 BUS/68XX 



Board and/or Computer 

Terminal •-CRTs-Printers 

Dials Drivea-etc. 



REPAIRS 



NCM AVAILABLE TO ALL SS0/6aXX USERS 
The Oata-Comp Division ot CPI Is proud to announce the ovaiiabllltY 
ot their service department facilities to <ALL< SSO Bu& and 66XX 
users. Including all brands, SMTPC - GlMIX - SSB ~ HELIXand 
others, including the single board computers, * Please note that 
kit-built components are a special case, and alll be handled on an 
Individual besis. It accepted. 

1. If YOU require service, the first thing you need to do is call 
the nunber baloa and describe your problem and confirp a Oata-O^ 
service L shipping niatierl This Is very Important, Oeta-Comp vlil 
not accept or repair Items not displaying this number! Also «e 
cannot advise or help you troubleshoot on the telephone, ae can 
give you a shipping number, but HO advice] Sorry! 

2, All service shipments must include both a minimum S40.00 
estimate/repair charge and pre-paid return shipping charges 
(should be same amount you pay to ship to Oata-Conp). 

5< It you desire a telephone estimate alter your repair item Is 
received. Include an additional S5.00 to cover long distance 
charges. Otheralse an estimate hIII be mailed to you. If you 
requested an estimate. Estimates aust M requested. Mailed 
estimates sioa doan the process considerably, Hovever, It repairs 
are not desired, after the estimate Is given, the 140.00 shall 
constitute the estimate charge, and the Itam(s) alii be returned 
unrepaired providing sufficient return s hipping charges aere 
Included alth Item to be serviced. Please note that estimates are 
given In dollar amounts only. 

4. Oata-Comp service Is the oldest and most experienced general 
SS0/6exx service department In the aorld. Me have over 
tlOCOOO.OO In parts In stock. Me have the most complete set ot 
service documents for the various S50/6eXX systems of anyone - 
TET, HE DO NOT HAVE EVERYTHINa But «e sure have more then anyone 
else. Me repair about 901 of ail items ae receive. Call tor 
additional Information or shipping Instructions. 





DATA.COMP 

5900 Cassandra Smith Rd. 
HiJison. TN 37343 



(615)842-4607 

Telex 5106006630 
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Now Offering 'FLEX" (2 Versions) 
AND 'STAR-DOS PLUS+ "" 




FOf Ordering CM 



(615)842-4600 

FROM - DATA-COMP, 



A Family of 100% 68XX Support Facilities 

The Folks who FIRST Put FLEX'- on 

The CoCo 




AR-DOS PLUS-l- 

• Functions Same as FLEX 

• Reads • writes FLEX Disks 

• Run FLEX Programs 

• Just type Run "STAR-DOS" 

• Owei 300 utilities & programs 
to choose from. 



TSC Editor 
i)«issooa 

NOW $35.00 



B^ 



PLUS 
ALL VERSIONS OF FLEX & STAR-DOS* INCLUDE 

+ Read'Wiite-Dir RS Disk + External Teiminal Program 




+ Run RS Basic from Both 
+ More Free Ullities 



+ Test Disk Program 
+ Disk Examine & Repair Program 
+ Memoiy Examine Program 
+ Many Many More!!! 



TSC Assembler 

R«9 KOOO 
NOW SSS.M 



Jf 



CnCo Disk OTtrr Sgsteins 



2 THINLINE DOUBLE SIDED DOUBLE DENSITY DISK DRIVES 
SirSTEN yiTN raUEB SUrrLV.CltBINtT.DISK UKIVK CABLE, JiN 
HEW DISK CONTROLLEK JPD-CP WITH J-0OS,KS-UOS OPEKATINC 
SKTliMS. $4««.«> 

Speciry Wh«t COKTttOLLER You Want J«ll, or lADIO SHAOl 



THINLIKE OOUBLE SIOCO 
MHIILt DEMSITT 40 TRACKS 



Verbatim Diskelles 



Slnsl* Sld<d Dsuklt D«a>lt]r 
Doubl* Sltfad Doublt Ocotltjr 



[loalrotlKi !> 



JM JPD-CP WITM J-OOS 
WITH J-DOS, RS-OOS 
RADIO SHACK I . I 

RADIO SHACK Ditk CONTROLLER l.t 



Oisk Onve Cibleii 



CabLt fat One Drlvt 
C«bLt for Tvo Drives 



«|2«.*S 



} 24.00 
} {4.00 






}I>4.M 



i 14. «S 



64K UPCHAOE 

PUI C.O.E.P, AND COCO II 
RADIO SHACK (ASIC 1.2 
RADIO StiACK DISK lASIC 1.1 

DISK DRIVE CAtlHET PUI A 
SIMCLE DRIVE 

DISK DRIVE CABINET PUI TVO 
THINLin DRIViS 



rtwms 

EPSON LX-SO 
tPSON HX-70 
HrSON MX- 100 

«<on<Kiu FM tmm 

Bits 2K SERIAL BOARD 
BIA9 )2K EXPAND TO I2«K 
KPSON MX-KX-W RIBBONS 
EPSON LX-BO RIBBUKS 
TUCTOK UNITS POR LX-K 
CABLE!! t 0TN8K INTERFACI^S 
CALL fOR PRICIM; 



i 2«.«» 



i 24. «s 






t2B1.M 

♦ l«.« 



« »«.*s 

«ltf.«S 
t )».M 



DATA-COMP 

5900 Cassandra Smith Rd 
Hixson. IN 37343 




C9 


SHIPPIN6 ^? 

.c^ir^^'iJ'oS's. (615)842-4600 

niN. 92. so For OrOMInq 

Telex 5106006630 
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511K RAM 
Expansion 



Compact 
Flexible 

6809 
computer 

Th«nftwSI'2fl00ayeiorn - «comp(elfl04K imaNbuunasBcxnoDOviiicompuMr 
la only on* of Ha many posstb^a oonltguraiiona Among ua leaiurea ara 

• SniaHMV>ugnronoMinyoutnan«l(Eurac«r«aiaa:3S^<C71 

• Tnraa boaf d'syi lam" f or graafar venal lUiylhaA wngie board compuiar i 

•a> Boaid-poMTlul Sfloee enx^aa, ISK a MK RAM. IK^K EPnoM. 
1 RSZ32 wrlai poiia with soXwara ptogrammibla Mud talM. )8 b< i eounlar/lirrv 
ar. Run ma CPU boarx) an by liaalt, or plug your own cuaiom board or our FOC 
BoarO tnOIV RAM 5 1 2 board tn IQ ilw a>p*nilon connaclor 

■ FOC Board - dotibl»-*K>a<U<iouba>4aniiiv i\oeoy diak coniroaiar wiin adiuat- 
iTMnt lra« at liar daia laparalor and «wi1* pr*conipafltation 2 B^i paiaKal 
porta.2 16-bll countain^niara. prorotyprnga/aa 

• RAM^dl iMid - 524.288 Pylaa ol RAM on a 4 tft'uS.T' boardi Low powa< 
IncKidaaRAMOtaii lodwaia lor Fl.£XorO&> 

■ FLEXandOS^aupporiad - a*n»«r« laiantaaia. 

• 0&4C<vn«w<»Paeic*9a lata yew uaaina km coal fladioShackCaCovvaMner 
0%a on our SI'2900 ayalam Sa«* tl3l olt ina M9e**tad tin pric* ot osgt 
Ma sretnunmins la ln««l«a«. Supporia CoCo OStf. iiandard 0S4. and 
WIZAROS^/WK dl9)l lormala. CompaliblawilhP&XFER lo lal you raadlwrltal 
tennal ni-OOa dlakal 

•CPUbaraDotidpluaEPROM t4S osgconvaraion Pack age }4S 

FOCbaraboard S3a F LE X C<mwu>t Packag* tZS 

RAM.S12t>0araAlT Uii CPU <^ FDC • OS-9Coflvaralon t119 

CPU t FDCboardsetaisambladandiaaiad S32« 

• AM SS snippiiiBihandllng (tlO ovcissaal T>\aM pricaa ara in U S lunda. Cana. 
dranordara callorwrHaiorprKaa larms: chack, rror«yo>daf . VISA 



CaH w wrWa fo^ l*aa brwJiw 
andeomplalaprlca Ual 
(aiM)2S»-<lM 



T XC<HNOLOOIC"^ 

2261 E. nth Ave. Vancouver. B.C.. Canada V5N 1Z7 




POV^RfUL tOLon u"A( Mies 

UMm INt nvw TMSa^THA VhOeo Dn 
pl«V pfocatDT High f*toiu1iOA 25A « 
taz p*x«i dtftpiAv wiin IS cotort 16K 
By1*ft oi OAbofrtd RAM doet not rtcfuce 
uMt nvmory 12 o'*P(^'C iffuc^ cin 
b« <ndividu«Hy moved with ttinpte X-Y 
commincH tor tmoorh jinimaiion 
Eal4rn«i Video mpui «llom subriti^n^j 
NTSC compoiife wOKt outpui 
SOUND LFFECT^AND MUSJC 

• Three AV3e910 Program rnabl* 
Soond Genereto«« 

• Nine timuKaneDua vOf<:ea 

e TFuee in<Mpen<>eni noise sourcei 
e Onboard ilefeo amplM*or drtvr« two 

S ohmtpeekeri 
AEKUnOtULVO CAPAdlUTlES 

• Etghl analog mpuis wilh B b<1 reso- 
lution 

e Supporlft lour ioyfilcha with puShbul 

ton swtichei 
e E<ght Oil parallel I/O pon 
a Er\|ire wn»t map •rio 7M bytea o* 

memory 



TERMINUS DESIGN INC. m 
tion With McroxiTBre Sv lemaCotpOfa 
liorv It prOijd lo annourVa FBASjC «n 
ennancemanl oi M<rowarea MOC 
BAS*C Their laaicoAfp*l*daA£jCha» 
beer\ adacilad *or eaOd u>e^ »ith erhapd 
vHtoo atd tourta leal urea to* ARCADE 
60 uaera FBASIC 4 e true como^e* 
thai oroducea ophmi^ed machine iMty 
(K^age moduiei wfxhareROMableaod 
require no Run Time pechaoa FBASIC 
reoutrea teas "*emor» overhead af>d 
'una hundrada o^ um— (atier man 
BASIC inierpreiera ll auDOO/i« ttan- 
daid BASC mairuclton ir>c:wding 
SirinQKMKlioAa OoK l/Oanctlasl inleQer 
•rrfrwnaiic wtih rnvMrpte-preciatoncape' 
lytl'tvGrap'MiaverbeandlunctiQnaluilv 
auppofl ihe Arce^ V> 



ARCADE SO assembled and leded 

Video end Audio connecto* ««t 

4 Joyaick connector sai 

2 n»iitt> SAach joysitctti 

Gold Moleit connectorm 

A/fiASiC rur fiflOO 

f BASIC for (]K09 

FBASIC <wi|h ARCADE SOt 

ARCADE SO RGB 

LA VIDEO lMolor<MaEXORboa| 

NEWMV09 6S0dProc ssor Board 

2&BK Dynamtc Memory Boaid 

2S6K Dynarntc Memory Boa id (w/d^Kr 

&4K Dynamic Memory Board 



It k\*s ( \'sjt \t\\ \H 



TERMINUS DESIGN INC 

lb SCARBROUCH ROAD 

ELLENWOOI), CA 3004") 

(104) 474-4866 



MJSOO 
tSOO 
ISOO 
24 00 
1200 
11000 
MOOO 

rsoo 

3?500 
37S0O 
22»(X) 
79900 
39S0O 
29S00 



MICROBOX II Single Board Computer 




Nlcr»bo« 11 sec bar* te«r4 02^9.) tarti) 

p]u* mpwom dice b«r« boird (4a) tocli} 

pluft rir«vari and ■yvcta uttllty dlM (9.29 40 (r«Clt) 

Suppt1«d vlth full coQitrwctlon and op^ritlnK itoc**. 

FlrwvirB ■ourca coda on dIaCf 

SmII 'C E(»pil«r (UO)) w/72iOA <r«pHlc llbrirlv*. 

Saall ~C~ coaplUr (MOD objact. 

rrltvi laclit^ alraall pottagg. 



tl90 



9 29 

1 100 
t J30 



Ttrtta: CUO^ Carevnt b^ Lr>t*rB«ClaA«l fbn*y OvtUr or KA^TCJl-CAii)* 



mCftO CCNCIfTS 2 IT STirUUS IKUO 



CRELTUIUM CUM. CJKLAMD CU L ^U 

Tatrpboo*: (0242) SJ0S3) 



MicrObOX II 1» a powrtul ^M9 baaad ainalt board co^utar parUd 

with laottailv* faacuraa la an aaaj to build lor*. 

tunnlai undar tha Plas opar^Clng aratas It coacslna U)t ot drB.mJc '•■, 

SK of apr<M, high raaolutto^ ta«t vd irapblc dlapla;rt> ^ to MXl aoccor 

raadtac, up lo 512 aaccor aproo diac, floppy dl»c controllar. acrl*! and 

paralJ*! I/Oi reat-ttoB clock and aproa prograaaor. 

4n aproB dtac thai looha to Plaa Ilka a atandard vrlla pcecactod driva 

can b* prograov^d with anything that would aoraallr b« on floppy - 

tocluding P1«K ttaalt. 4 r«« dlac that looha Ilka a ataadard 

uitpretaccad dlac acta aa a vary (aat worh dlac. Support tor two floppy 

d rivaa I* alao oo-board* 

£«ceptlon«l oonochioav graphic capabllStlaa ar* prowldad by a •CIC7220A 

graphic diapiay cootiollar vbtch |l*»a wry faat dr*«lQg apoada throwgh 

hardwara sector, clrcla, r«ctaaSla» patcara and araa (111 |a««ralloo. 

Tho riaa oparatlng ayata* eaa ba bootad fro« any *ca«dard ayataa dlac - 

ceni igurac Ion la carrlad out auto*allcally ay tti* auppllad flra«ara * 

and all th« uaual loftwara can b* uaad. 

NIcreboK II can tv controllad (roa a ataadard aerial tvralnal a aorlal / 

parallal kayboard aad vldao asnltor or a Blstura of botha 



Specification: 



66I09E alcroprocaaaor attpportfng 40K ot dynaalc raa and 8K flraiara. 

7ZZ0A graphic diaplay controllar aupportlng I26K ot dyoaalc raa 

pariltlooad aa •oo^^hroa* t14»o diaplay *nd raadi ac* 

Taat diaplay ot S4i24 or I0ftt24 cKatarCaTa. Or tnvrot your o«d (oraat. 

Craphlc dlapLay of Jh&n^Jh plaata. Vary (aal hardwara vactora ate. 

Coapoalta vldao and aaparaca vldao / aync oulpuci. 

Kproa dlac ualnf four 27J2fl dcvlca*. An rproa prograaaor la oo board. 

Floppy dlac coatrollar (or 4S or 96 tpl aloglo/deubla daoally drtvoa. 

TWO t$2)2 aarlal porta with prograaaabla baudrataa. 90 ^ lf20(r baurfa 

Contronlca typo para Hal print ar port. 

farallaL kayboard port. 

■ attar/ backad laal-i lee clo<!k/calandar. 

Olp avltch aalvclloB o( Input vourca, ootput daailnatloa aad autoWol. 

Additional 1/0 capability via uaar aaponaloa bwaa. 

100* a of XtcroboR I l*i cwrraat ty la waa «nrldwld« • 



Tha tliv* 
taralnal 
will boot 
Tb« aofc 
allaroac 
clock I 
• ■tvialaa 



'ar* lecludaa ayatea diagnoatica, ullllllaa, graphic prlaaclvaa, 
aaulaior and auto-coal Ig^rat Ion thai anauraa that tha board 
I (roB aay ataadard Pl*a ayatva dlac. 
:ware Includaa dlac (oreattar, priacar drlwra* dlac allocatloe, 

Iwa iar«lnal aaulatora, aproa profra^vr reoTlnaa, r«al-t1a* 
ippOrt, graphic aacroa and daao. character aat aourc* and ayat*a 



*rlaK (a a Cradaaark of TvchAlcil Syat«ea Cottaaltaata. 
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SOFTWARE FOR 680x SYSTEMS 



SUPER SLEI/m mSASSE MBLERS 
EACH I99-FLEX I101-OS/9 tlOOUNIFLEX 

0«JECr-OM.Y vaillom: EAC SSO-n.EX.OS/S.COCO 

rutthctvi^Y getiefBtfl UHjfca on <i^h witti I4bvl^. >ncli>da iftt, timary editing 

ipBcify 6000,1. ?.3,S.a.9'«S0^v«riion of ZSO'SOSO.S yarvVon 

0S« vnion 4tai pmann FLEX Icnnit oCfKt «• unter OS/9 

COCO DOS mait^M in eeOO, 1,2,3. .e,a/S«02 vmicn |nat2BCUB0aD.S| orly 

CROSSE SSEMBLERS (TRUE ASSEMBLERS, NOT MACRO SCTS) 
EACH tS0-FLEX,O3/9.UNIFLex ANY 3 t100 ALL 1200 

ii)Kity lor iaa>.e5o^5aat.6eoi.&soi6e(i»,;e;»!i.sa4e.M&i.soes.MOOO 

Injv, nttcMtf , lt«*- standing crm-asMTiblvi rt C, wtt^ toacJAWoad i/tililiaa 
^bri fnoT 68000} vxj^c44 incfuc}*d with an crcna'auamUari (fof 1200} 

OEBUGGMG SIMULATORS FOR POPULAR MICROPROCE SSOAS 
EACH tTS-FLEX SIOO-O&'S SOO-UNIFLEX 
OBJECT-ONLY vaialona: EACKMftCOCO FLEX,COC0OS« 
MvadK^ G^fUada(V^^ua9..«^jde tfoa&swneiylofmAi'nO, bnafvedur^ 
vwcify Inr Bsoori . (l4ieaOS, esa2, SS09 0S'9k 2B0 FLEX 

ASSEMBLER CODE TRANSLATORS FOR 6502, 6800/1. 6809 
BS02neeo9 its-flex tas-o&i iso.uniflex 

eeaori to SS09 a sso9 lo eot/[iornna »hi.fle« (7S-os/» s60-unifie« 

FULL-SCREEN XBASIC PROGRAMS with Conor conVd 
AVAIl ABLE FOR FLEX, UNIFLEX. AND MSDOS 

DISPmYOt«FL»T OfVDOCUMENTOR »M m'toure*. t25 wittwul 

M*IL no LIST SYSTEM HOOwi'aourca. ISOwnhout 

IKVENTOfiY WfTH MRP 1100 wtwrca. UO urtlfiout 

Ti«BUL»RASAS*flEADS»«eT 1100 w't<liM,tM»*ll>ou< 

DISK ANO XBASIC UTIUTV PROGRAM LIBRARY 
tSDTLEX t30-UNIFLEX/MSDOS 

KS/lCaktat3irt,\on^B9'9t^,mmmM> masor caUAv tfo (tfifc aorta. 
)na»aT> loma arm OI9ASX:(»9S^>rt'e«SlCpr<Vs^■lc 
iwrvfLEX v«iions »till« «ort and ™»«i»««'V«< on>( 

CMOOEM TKEOOWMUMCATIOre PROGRAM 

S100-FLEX,OS/9, UNIFLEX 
OBJ ECT-ONLY vanlpna : (EACH JS0-flEX,O»» 
n>%»M«< nitfl tvin<al moM. Satiaralar. UOOOtlT. XOM-XOFf. Mc 
Icr COCO Ml rnvCOCO, c»t>«B >^n^ OOOO rrnlsn pen up 10 aiOO Ban 



HARDWARE & SERVICES 

5.25" DISKETTES 
EACH lOPACK S12.S0-SSSD/SS0D/0S0D SZO-DSGD 

a>TWT3/wrwte , gMratavt I0a%9^>|. wWlTyvali^aaB. rme >ingi. and UMs 

SS-50C 2SeK 1.5MHz MEMORY BOARDS 
EACH BLANK ISO ASSEMBLED AND TESTED S3S0 

«*Mft Imfrudkn manuaL ar^iMt^a&a. and daiay ina; a* p»tt pioi^y avMam* 

AOOfTKINA L SEAVK£S FOR THE COMTt/TING COMMUNITY 
CUSrOtnZED PROQRAMWIO 

wa M,4t tafl>r<^^L«*y cf 9«* (nvanv tf^D^vd in tfita ahwiligiwa or inotjr 
Enxntf* tvv^ciaumi Oitffrw uaaofiDCOnarrww>prooaaiDrt.tiatfMrga 
tor such nJl i'>,Mfcn dapit^* uport Iha r*>04^bHKy of aw modAcaaona 

CONTRACT PROGRAMmO 
«w ml ervata Tiaw Ort9>n« ornud^ aiiBkno proy»lte 0r>aartr«3basJa, 
i iffvvs M« rwa ^uwiM lor war M m t f yman,V*oa^v^Mn onwfich m« 
tiava fartammi cv^ars ^uyjaiiiff^ v^a^li most IM"'' CRxMi of 
mafVianwa. inAxfrig IBM. eu^outys , LMtk, Howitim* . moat (afadai 
ITUM> ol nv«i>T«x/to<. (KUing OEC, EM. CX3. M>. AT&T, art) mat 
papula . (iranteo'niiciliaFiipUlara.^aManB eSOOri. 6809. Zm. 6S02. 
68000. using moot vpnv'^aia larv'JiOB andcfitfalrig ryswm, onayAtfna 
rvi^ng inauoltomlarga a ^mf la^waagia iolifl0le Ooard oomofarv,' 
tha cnaioa tar a:i«»J pro^Bnwwo lauauaiy toy ma Hour or by via tuk. 

CONSULTING 
waottvaMmaranga ol tadVVB and tor^ntal coraaifr^ ^nk^ nla^ 
lanwwa. mifc; tairwig. and amft, on any tofac MiM la car^aiian: 
•w eharga tar mviA^ AnaT.«a*V eaaadt<viVma,vav«C andaipvsa. 



Computer Syatams Conaullanta, Inc. 

14S4 Latta Lane, Conyars, GA 30207 

Telaphone 404-483-1717 or 4570 

Wa laka orders at any time, but ple««« 
plan diacuaalona after 6, II poatlble. 

Contact ua about catalog, dealer, diacounia, and aervlcea. 
Moat programs In source: give computer, OS, diak alia. 
25% oil multiple purcliaaea ol same program on one order. 
VISA end MASTER CARD eccepted: US tunda only, please. 
Add GA sale* tax (If In GA) and 5% ahlpplng. 

(UMiFiEX an Tadasa ey«n« CsaiArm osn mi '(ov-aia. coco «n Tarn 



SOFTWAREfc 
* HARDCORE 



•• FORTH PROGRAMMING TOOLS from the 68XX4X " 
*• FORTH specialists — gel Ihe best'! " 

NOW AVAILABLE — A variety ol rom and disk FORTH systems lo 
run on and/or do TARGET COMPILATION (or 

6800, 6301/6601. 6809. 68000. 6060. 260 

Write or call for inlormaUon on a special system to lit your require- 
ment. 

Standard systems available lor Ihese hardware— 

EPSON HX-20 rom system ar>d target compiler 

6809 rom systems tor SS-50, EXORCISER. STO, ETC. 

COLOR COMPUTER 

6600/6609 FLEX or EXORCISER disk systems, 

66000 rom based sysiems 

66000 CP'M-68K disk systems, MODEL \ii^Z^6 

tFORTH IS a relinsd version ol FORTH Inleresi Group standard 
FORTH, (aster than FIG-FORTH. FORTH is both a compiler and 
an Interpreter. It executes orders ol magnitudes faster than Inter- 
pretive BASIC. MORE IMPORTANT, CODE DEVELOPMENT 
AND TESTING is much, much lasler than complied tanouages 
such as PASCAL and C. II Soltware DEVELOPMENT COSTS are 
an important concern (or you, you need FORTH! 

fIrmFORTH'* Is lor the programmer who needs to squeeze the 
most into roms. II is a professional programmer's tool lor compact 
rommable code tor controller applicalions 

» IFORTK and IWffFOf^Tn aia vadamartt ol Tltx* Uosayalami 
• FLEX II a livlanMfk ol Tacfwxai Syiwnt Coruuliantt Inc 
" CP^-ttK It iradamani ol Ogul RataartA Inc 



tFORTH® 

from TALBOT MICROSYSTEMS 
NEW SYSTEMS FOR 
6301/6801, 6809, and 68000 



— > IFORTH SYSTEMS < - 

Foi all FLEX systems: GIMIX. SWTP, SSB, or EXOFIasor Speci<y 
5 or 8 inch diskette, hardware type, and 6600 or 6809 

•• IFORTH — extended fig FORTH (1 disk) $100 ($15) 

with fig line editor. 
■• tFORTH + — morel (3 5' W 2 8" di^s) $250 ($25) 

adds screen editor, assembler, extended data types, utilities, 

fames, and dabugglriQ aids 
RS-eO COLORFORTH — available Irom The Micro Works 
" lirm FORTH — 6809 only. $350 ($10) 

For target compilations to rommable code 
Automatically deletes unused code. Includes HOST system 
source and target nucleus source No royalty on targets Re- 
quires but does not inci de tFORTH + . 
" FORTH PROGRAMMING AIDS — elaborate OecompllBf $150 

" tFORTH lor HX-20, in 16K roms lor expansion unit or replace 
BASIC $170 

*• tFORTH/68K tor CP/M-68K 8" disk system $290 

Makes Model 16 a super software development system. 

" Nautilus Systems Cross Compiler 

— Requires: (FORTH -i- HOST -•• at least one TARGET: 

— HOST system code (6809 or 68000) $200 

— TARGET source code: 6800-$200. 6301/6801— $200 
same plus HX-20 extensions— $300 

5809— $300, 6080/280^ $200. 68000— $350 

Manuals available separately — price in | ), 
AM £6'system lor shipping, Si5 lor loreign air 



TALBOT MICROSYSTEMS 1927 Curtis Ave., Redondo Beach. CA 90278 (21 3) 376 9941 



'68' Micro Journal 



Jan aiy '86 



5? 



WINDRUSH MICRO SYSTEMS 



UPROM II 




12V». I??U, t«16, 1?732/?732A, 

HO PHMWlin tWWliS ■IWHED* 

Tl|-ifOl.T inOK *IH WT mfWHTgft 

(1i) i*pl4«tnl*d for lnt«l 

2764* 2nM «nd 2r2» «tv1cii. 

Iht CvvraBV orpgrtaalng !(•« of • 
27ti TriM 7 •1nut«S lo 1 Nlrut* 
IS tKMWli <\jr>6*r H.IX} Mlth 
grtttlr iS&rOvfO fffLUbUMy. 

fulLy «nclas(d pod vUh S> ot 
*l«1 r^MMT c*bl« for conr>«ciloA 
to thf hoiC ca«PU1«r ]<C6«?1 PtA 
Iricr1«ci tetrd. 

IIC6e09 loftuin for FtCl cnQ 019 
(L«v*t 1 or 2, Vvrilort 1.2)« 

BIMIt aiSK FILE a1t««t tatOer 
t)*Oll«d «ith FLiJt, mWl ADd DS?. 



«. f ILL ■ t«L«ci«d trtfJ of the »t»fttr Mfth • Hit Ch«f. 

D. 40Vi fatocht 01 d«I*. 

C. OUV ....... t(i* bwf*«'' In Mil Vid ASCII. 

dk rtW • itrtnq of frytvi 1a tr>« boffvr. 

• . ll>«tPlC/CWMCI . ti|« <«r>I«nit Ol llw bwfr«r. 

f. etc ............ cnt<i«<^ « BV^VCtM srt* of to* ^Tftr. 

9. tVl • mwlktttta «r*« or an IPTCP* into 1h* tMffar, 

h. Vil](¥ ......... ■ l«UctVd ar«« of «n tnON BStfASt tht bjfttr. 

I, Mr<WAU • >«lict*d arf« of an E*tOM <rtth d*tc ir m* bwffir. 

1. SCLlCt ......... • nvw CnOM tr»« tftturr^ t9 tTOm% «*fte) . 

b. emit in* tfitl** •oniior. 

L IttMllf ......... t« td* oe«ratir*s tr*r*m. 

I. EUCtfTI any 00$ uttltlv (oniy irv fLEi «ne 0S9 v*rtlgnt>. 

fUl <Ulg 0>» IJIlllflW *lf*lLmt foil <mti. »M/WW COwtACT US »|lH(f. 



PL/9 



■ lr\9r^ly 1ntff-»ct1v« »Hif\fOt\mttt1 »hmrm rvn r>4V* IVSTAMT «eciia lo ft* 
Id t lor, Ibf C9^ U«r« %n0 (nt I r«e«-»«Ok<m« r* -huh^ ■varvg tt OtNtr 
I'lingi^ C««^ tinfL* tt*F th* orograa • SOuKE I ln« *t • tl*v. *ou «l)o 
hav* dirtel •<rfift t« v*r fLES ullLUy «nd yAwr ■;'kt«a «vtltoi-. 

« ir^* ff*«* ••nwti o'fviiitd M « tutofmi «iin sl«nif of tz4«ui«t. 

> '•■( llWU.1 f>*» co«pUfr producer t* Of C(IW>ACT «r^ FUT 6609 <uc>iti« 
coda output D*r slrt^t* Mith rw rk^t-tl«« ovarh*«ds Or Mc*n»« f*«i. 

• Tutly c<Mfi«llfcli i^^th 11C t«>t adttor foroat d>>lt fU»i. 

• >tvitd <n4 i^»44nt4 ITlIt and tHTEfiCH, S^'41t fLofllnf point mtt. 

• VicioFi tilnfVt di**ntl4n 9rrtywt tnti iKintvi »rw tupponctd, 

■ n«t^« atlcAl aB|ir«tilon«i (t), t-l. (•>< {^)« •oOblut t\), nagcilop t*J 

• CcDr*«>1on twatuolcrai <«), CO), Ki, (>), O*)^ (<«) 

• Sit iwvratorat <ANft). <0R>^ ^COR/XOtJ, (MOT), tSHlft), (SM^) 

• Logical ODtritori; <.»M9)f (.Ol), (.EOt/lM) 

> to^trol ilstaaantti JF. .THCh,.Cl,ll« If . .CaSEt ..CASE2..eLSE, HGIIi..{h». 

mmKe.., »»wihi..miii, Rej>Eii..foitEtfH, call, .jiitp« aetuin^ BtEM, <oto. 

• »w«ct acioat to (ACtA), tA((B), (A(Cfe>. (IKO, (CCa> V)d (SIACKt. 

• flALf HWdrts (*• IKM09 tESCT. Wl, 1m, lin« Swi, Swl2« And SHt3 
wsclori. Mrlling ■ ivlf'alari irtg itrom oevV^^uQ) progrM fiAt utn ANf« 
■r Au.* ol ina IKM09 inlvrrupit ta m abaolui* v^p' 

• flocftlno tod* ••f b« fiiifcX In t^« prOgrM vU tfc« 'iCfl' aCat«awrti. ihU 
fna6l*a f9» lo cod» crl|tc«| rOwtfn*! In aaavCbly lMi«u*e« «nd rA*d tb'** 
1^ th« n./9 pro«rMi U«* 'MCC' for d«t«U>). 

• ^MfrOurat Mr b* P*«**d m«4 •«V fttwrn wirtabttt. n la Mhat tbff* 
ft^ctlont «kt<h IMitavt oa IhOugK ir>*y *Kr« «#• 1rtt««r*l oarl of nj9. 

• lawrol fully daci»«nlad Itbrurr orocadw* •odulCt »f^ a«Mlti*d: 10MBS« 
etttO* HAJMO. H[lie« ftCIlO, KlMtK, ITtSiaS« OASIIINC. «nd RCALCn*. 

■... imt n ^Wt WPST lffKIE<t COWflLEA I WAlfE fOfC tQ GATE.' 



BuCttd ff-0* ii.-i'^ ArviHri^H^t FLlf L>«fr l(at*l f^^^jlin 



'60. *w*>; w i«]r iiBr*T 



MACE/XMACE/ASM05 

Att ot tMa* prooutta faatwf* i Nifhtr productiv* aftvtro^ini uft^Pv tf)* 
rdllor M>d ih* «ia»«Atcr r«« td* lA ■■ii'7 l4tr*tMr. (en* ar* tiv« «aya of 
tvdiua ditk load and %tt* opOrAdona mMU ydU •<-* ^fc^ftiwg yotv Cad*. 

■ 1ri«ftdl)i trttof-acttva artwI/oftMAt aMr* y0u Mv* tmtani accnt to i**w 
Cdllor and Ihf Aaav^tar. fitl utIlSlUt and your ayiiM aonlior. 

■ *ACC can alto produc* A^^VOC a (fiEU aiata Ala) for Wlt9 -Ult ifw 
atatMftly tar^9i>«av aawrc* P*»«fd to IK* Mt^jt •« c^i^mtt. 

■ mAtt It a cro«i aatt^tar lor t>>« 4000/1/2/Sfl and auwortt i>iv r-iar^Md 
•tlia of (f>« 6909. 



ASNOS la ■ croia aaiaWlar lor lh« 600S. 



D-BUG 



LOfKIM for a ttnflla tt«o Iratar and iiinf In- 1 In* dl>a»a»Mla/ thai la aaar 
to ut«71 loot n« funhar, you hav* louod It. tlita PackAga It Idaal for 
iboai' mall attaanly tingija^a firotfraa d*buB94r>« ataalont, P^UC dccuplaa 
!«■■ ih«n OK (1ntl«4din« Itt ttaik 9n0 warlablat) and aar ba loadffd «n7*<h*ra 
tn aaaarr. Jit rou dO U LOAB II, AtH IT and SO- CM) col VOUl «nlr>. 



McCOSH C 



thlt tl 41 CiMplttr * 'C* cWw'lar •■ fwj Mlil riod on srir ofwratlnf i^ttint 
iar X** titXH^ )f ^a lOvtrlaivly tQit^^m^i^i^m m<1* mtt Vtl and onLy i;ack\ 
'blt-f(*ldt* t^li«h tra of littlt fi'AcHcai wm in d^ §*bit verld'l. 

" prMwcaa vary aHlcani a»a<al»ly laAgt'K* •owre* outpMt atth thr *t* 
•oiirct ept1«n«ti>' tniarlt«tf«d aa ciM*anl«. 

• hitii*ln ovtlaUtr Hitl thariwi dfejact cdd* far mhui ill, 

• lun»Fti |rtttrt,*«v»d AatMtttr langi ^ ia profT^t, 

• IMCLUeii tta 0W« aatv^Ur, T^• ISC ralOC^tlng aaa«««l«r it Only r««i1r«d 
If y9y want ta Vt^crala yowr owi llbrartaa* 

• Tka p'^-P'ocataorr cd^liar, deltalrar, aata^tar and loadtf all fwi 
1 ntffpa*«aA 1 1 y or t»>d«r ma 'CC* c^vcutfvv. 'CC* tMkat ca«ttilng « otwtm 
Id «<tcui^la eejBct *1 ataptf at IrpTng U •CCftEli.O.C <BCTUKfI> ■ . 



IEEE -488 



■' TaLliaf - S«r1«L A> I L - linai* «r M«aL Prla«Py Addratt 

- Littanar - paraltat Poll - tobwwUry »ddra»« 

- iyat** Cantrattar - Oeua Tr1g»*r - Tal* CUt .,, Llitan only 

• fulit doci^anltd «llN a co«Ol*ta r«pp1ni ol iha «tlOSAxi» arilcla on it^a 
IEEE bu» and Iha AatnrOla pUbl(C4lt«n 'Oalttng ttaOttH Iha l£EE ftua*. 

• lo» lavtl aaaaalily fanguaga drtwart tultablr for 6800r 6401, 6Mi2, Mcn« 
6809 artd ttOn art tUMIIaci «n tha fai« of llattnea. A <o«plata back to 
bad tatt pregpM 1i alto tuppllad to tha fora of ■ lUtlno, Thaaa 
(jrWart hawa baan aaianatwaly laitvd «nd *ra GWRAKTCEb lo wsrh. 

• Slr>9la S-M bodP-d (i* a or Id addraiiat Ptr fiorzi, tuUy aockatrd, gold 
Ololtd but ccnnactoT't And lEEC Intariata cabia aaa««bt>. 



PRICES 

eiuc t.tm >iii only) I rt.og 

tUU lUM FLU .nly tn.M 

mice {ttQ9 FLtN w«lpl , , ,.,. i 98.00 

• SM> <6<a9 ILii only) I 96.00 

r\./t tun iiii «<iri 1191.00 

'c <ua> fill ooiT) i!4f.a« 

icii-ut .Ilk iice-4M <.»i. .ii.Air tjva.DO 

i^«4»-lUU tfll. .n. v.rilcn ol torTv.r. (h. CL* or Inltrf.ctl .. l)4).0O 

(^«Q»-1I/C •• otoovf bwt covlttt wit. cftlf w^d S-30 Inltrf.c. ....SS4S.0O 

CMLE S* Iii4«1.fi-fla1 >0 ..y Cfet. .Uh 15C COnttKlori ...... 1 J^.OO 

1-M III It-W Intiroca tor inw-ll tlJO.DO 

EKfl* IMT Notorel. tIDttMt (e«McUfr> 1^ttr1Mr for UPtV^- II ... S195.0a 

irtdM Sit loTtH.rt «-w*r* fw ^nd op«r«ttn9 iriini. 

tcicllr llt> or em Ul dill ilx! I H.QO 

*Jf*W in Atit^ty lMt9u.4« idurcc Ktal.cl ui tllrtcl) 

Ill > » I t f 1 I II t 1. U > I l"'f '»' » > I 1. > a 1 T t t I 

T«r.t£ CK. ..r.*r»i by IfifM nonty [>ra*r. viii or fl.(1tl|..<KIIV .Ivc .CCKT.d. 

WE STOCK THE FOLUMnNQ COHMMES PnoOUCtS: 
aaHX.SSB,F>C, IMCflOWWIE. TSC, LUCHMTA, LLOVO IA>, 
A ALfOWD * ASaOCU>TES. 

fLEU <t«) ia a tra^aarl ot ItChniEal tyat*Bt CO(>iAijlCar>tt, Oi*9 {[■> li a 
tra^Hrh 0t HicrMtra SfttHt CarpontlM, MOI^ (ta) md C]|Dteit«r C(#) 
ir* trAdaiP«Pht of Hqtorctt tr^eorporatad. 



WORSTEAO LABOAATORICS, NOflTH WALSHAM 
NORFOLK, ENGLAND. NR28 9SA. 

TEl: 44 (692) 404086 
TLX: 97SS46 WMICRO G 



ss 



January '80 



'6S' Micro Journal 




MICRO 



JOURMI^L 



OK, PLEASE ENTER MY SUBSCRIPTION 
Bill My; Master Charge □ — VISA n 

Card is Exp. Date 

For □ 1-Year □ 2 Years □ 3 Years 



Enclosed: $. 



Name- 



Street- 
Clty_ 



_State_ 



^ip_ 



My Computer Is: 



Subscription Rst9S 
(Effective March J, t9$5) 

U.S.A.: 1 Yoar t24.S0. 2 Ymts 142.50. 3 Ysars 164.90 

* Foreign S«rfw:«: Add t12.00 per Year 1o USA Price. 

• Ftreign AlrwitI: Add (46.00 per Year 1o USA Price. 

* Canada I Hazlco: Add t 9.50 per Year 1o USA Price. 

* U.S. Ctrrency Cash or Oi*ck Draun an e USA Ba;* B 
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S900 CMModra Smllh M. 

Hlx>on, TN 37343 



MSS^ 



(615)842-4600 

Telex 5106006630 



AmENTlON all STAR-DOS U««r«l 

We hive made some very significant changes. 
Improvements, and additions to STAR-DOS". 

STAR-DOS now ... handles random (lies with 
unsurpassed speed ... even allows random (lies to 
be extended . . . loads programs (aster than ever 
— has extensive error checking to avoid operator 
and system errors ... comes with source code to 
allow you to modify STAR-DOS (or your system to 
add automatic date Insertion, time stamping of 
(lies (even random (lies), and RAM disks up to a 

megabyte allows up to ten drives includes 

a wide selection o( utilities which o(ten cost extra 
on other systems ... comes with superb 
documentation and user support. 

He greatly suggest that you update your present 
copy o( STAR-DOS. Just send us your oftglnal 
STAR-DOS diak along with S3 to cover postage, 
handling, and a IS-page update manual. 

And if yoii aren't using STAR-DOS yet 

why not switch (rom FLEX Itm o( Technical 
Systems Consultants) to STAR-DOS (our 
trademark) now7 Consider also our SPELL 'N FIX 
and MAGIC SPELL spelling correction programs, 
WRITE *N SPELL dictionary lookup program, 
HUMBUC monitor and debug system. CHECK 'N 
TAX home accounting system. SBC-02-S 
single-board control computer, and more. Write 
(or a catalog, or call us at <9H) 241-0287. 




TAR-Krrs" 



Box 209 Mt. KIsco NY 10S49 



AfCERSON OOfVTER OONSULTAMT^ 

& 

Associates 



Ron Anderson, respected author and columnist 
for 68 MICRO JOURNAL announces the Amferson 
Coaputer Consultants & Associates, a con- 
sultlng firm dealing primarily In 68XX(X) 
software design. Our wide experience In 
designing 6809 based control systems for 
machine tools is now available on a 
consultation basis. 

Our experience Includes programming 
macMne control functions, signal analysis, 
multi-axis servo control (CNO and general 
software design and development. We have 
extensive experience In Instrumentation and 
analysis of specialized software. We support 
all popular languages pertaining to the 6809 
and other 68XX{X) processors. 

If you are a manufacturer of a control or 
measuring package that you believe could 
benefit from efficient software, write or call 
Ron Anderson. The tact that any calculation 
you can do with pencil and paper, can be done 
much better with a microconiputer. We will be 
happy to review your problem and offer a 
modern, state-of-the-art microcomputer 
solution. We can do fhe entire Job or work 
with your software or hardware engineers. 

Anderson bi^iuter Consultants i Associates 

3540 Sturbridge Court 

Ann Arbor, HI 46105 
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INDUSIRIAL PASCAL 
FORTHE68CXX) 



If you're looking for a language to 
write real-time process control software, 
look no further. With the rising cost of 
labor, it is becoming critical that a high 
level language be used whenever possi- 
ble. Find out why over 1400 companies 
have switched to OmegaSoft Pascal for 
their demanding applications. 

OmegaSoft Pascal takes the Pascal 
framework and expands the basic data 
types, operators, functions, and memory 
allocation to fit the needs of real-time 
systems. These additions fit in the same 
structure as Pascal and enhance its use- 
fulness without impairing the excellent 
readability, ease of maintenance, and 
structured design. 

The compiler generates assembly lan- 
guage for assembly and link to run on 
the target system. Since a true relocat- 
ing assembler and linking loader is 
used, only those runtime modules re- 
quired are automatically linked in, pro- 
viding a smaller object module than 
other compilers. 

Large Pascal programs can be split up 
into conveniently sized modules to 
speed the development process. Proce- 
dures, functions, and variables can be 
referenced between Pascal modules and 
assembly language modules by using 
Pascal directives. 

The compiler package includes an in- 
teractive, symbolic debugger. The de- 



T.M OmegaSoti is a trademark of Certified Softvware Corpor- 
ation. OS-9/68000 IS a trademark of Microware. VERSAdos Is 
a trademark ol Motorola CP/M-68K is a trademark of ORI. 
UN\X ts a trademark of Sell Labs. 



bugger allows setting of breakpoints, 
displaying and changing variables, and 
tracing statements. Debugging can also 
be done at the assembly language level 
when needed. The debugger allows very 
fast turnaround for programs to be run 
on the host system (target system de- 
bugger coming soon). 

The compiler package also includes a 
full relocatable macro assembler and 
linking loader. These are designed to 
support the compiler but may also be us- 
ed for general assembly language devel- 
opment. In addition, a full screen editor 
is included which can be used with a va- 
riety of intelligent terminals. 

Full source code is included for the 
runtime library, the debugger, the screen 
editor, and other support utilities. 

Versions to run under the OS-9/68000 
and VERSAdos operating systems are 
currently available to end-users and 
OEM's. End user price is $900 (domestic) 
or $925 (international). A version for 
CP/M-68K Is available for OEM use, with 
OEM versions for UNIX type operating 
systems to follow. 

Similar products to run on a 6809 sys- 
tem and generate 6809 code are also 
available for most major 6809 operating 
systems. 



CERnFIED SOFTWARE 
CORPORATION 

616 Camiro Caballo, NIpomo, CA 93444 
Telephor>e: (805) 929-1395; Telex: 467013 



60 



January '86 



'66' Micro Journal 



DRIVE ENCLOSURES 



8' 



P^^^l 



5" 






FLOPPY-WINCHESTER-TAPE 
FROM «80oo 



(Includes Power Supply) 




Write Of coll tot oui biochure wtiich includes our apDlicolion note 
"Moking micfos. bettet Ition ony or box compuler 



'^"o^ 
*^^ 



• Desktop & Rack 

• Heavy Duty All Mefal Cabinet 

• Fan & Dust Filter* 

• Hetty Power Supplies 

• Full or Slim Drives 

• Power Homess From Supply To 
Drives 

•Line Fuse, EMI Filter", 
Detochoble Line Cord 

• Cobinets & Supplies Available 
Separately 



Men MocJeit 



(D<»h dm4i rtot kncludtd) 



i^iit«r:2i^i»: 



RESEARCH CORPORATION 
8620 Roosevelt Ave./Visolla, CA 93291 
209/651-1203 
32 Page Free Fairt Pokt Catalog 



OS-9 

USERS GROUP 

...Inrormatlon Exchange 

...Software Library 
over 40 diskettes 

...Message Of The Day 
periodic newsletter 

Wnie or Go 0S9 on CompuServe 
for Information 

06-9 Users Croup 

PO. Box 7506 
Des Moines, lA 30322 

OS-9 i« ■ tradtnu-k of Mlcrovar*. Inc. 
Tha Uaari Grmip it not ■IfillBted with Microware 



Hard Disk Subsystem 
for SS-50 Computers 

Thl9 prov«n aubsystes Adds hard dlalc ap«*d and atorac* 
capacity to your coaputar yat rcqulrva only ona SS 10 slot. 
Sortwara (with aourca) la Includad for your choice of 
n.EX9", OS-9* Laval 1 or Level 11, or 03^9 bU. operating 
aysteaa. The aoftwara honors all oparatlng ayatao 
convantlona, Tha aoftwara la daalfnad for the Itbvi SMIO 
cootrollar IntcrfacinC t« any hard dlatt drive that conferva 
to the S7S06 standard. Four subsysteaa arc available: 

1) 27 NB (foraatt«d> tfllCN* hard disk, Iab«« 31«10 
controller. 55-30 Interfaca card, all cablaa, aod 
aoftwar* for I2B50; 

2> 5 HB (foraattadl Shugart bO% hard disk, rest aaa* as 
above for 1750; 

3> (K> hard disk, rest aaae as above tor t600; aiMl 

4> 3S-30 Interface card and aortwart for $200. 
Teias r«ald«nts auat add sales tax, Tb* subsystis ttay be 
•ountad within your computer chaasla or in a aaparate 
enclosure with power supply. Plaaaa wrlta or phone 
(Include your day and evening phone noabers) for aor* 
Information. Ve will return iorth Aaarlca calls so that any 
datallad anawars will ba at our aipansa. Ue are proud to 
announce our relocation to the growlnf Hlfh-Teeh center of 
the 3outta<«»t*-Austln. Our new phone niaber is (5t2> 
335-^«t6. Ua are now able to accept pay»ent by Visa and 
Haatercard, 



M/C 
VI lA 



P.O. Boi 9M! - ««S 
liuitln, (aiu VB7M 



lii* J 



JSJ «*» 



FLEX II • Kr^^amrv. of Ttotinlci srilnd Consultant.. Inc. 
OS-9 la a cra4«a«nc of Hlcrowara una Hotorol. 
VtEK la a crMnwK of Control o.ta Corporation 
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maoam - siu cues 

StMkabla Nodal** 



IITS 



y^.^ .C^Lxl> 



yjf 



ASSIVBLeC k TE3TKD 



10 a^> poni aoppLT >/fu 

«/01«k protaet nlmj 
DiaS CMIKKT «/nf«. k e*Mas 
ISH DBITtS 

MOTxn BOiao, a aa-soe, s ss-soe 

mil batto* 



350.00 «00.00 

aoo.oo ISO. 00 
aas.oo 33S.O0 



ItM 



Bmr* 



KIT 



MT 



ITS 



- IirTtUDTT TtHEi 

1, 10, 100 p*r (M. 19.9ft 

PM - iirTau.ioiirT PORT eorTik 

aia(l* board caaput.39.9S 
0(>U - Dual PU parallal port. 

4 buffarad I/Oa 34.95 

Ixtaadad Mdraaala( 
B«0D (aa. PtA port 39.95 
WTTVII SOiRD aS'SOe 
>/BADD (aa. 64.95 

leak psoti DiaK 

31, 3764 IPROHa 39.95 

rirairara da«alopaaat 
3, aK blocka 39.95 

3764 PMH buraar adapt . 
for 37 le BttURR 

CnUT Carboard */Cablaat 
94 kar capacltlv* 

TUM 13", IB kba MOmTOR OHBBH 
AHBBR 

4 IIDDOLB Cnixrr - uaflalabad 

POBBR aWPLT «/dlak protaet 



XkDB 
KBB 



piea 



naa 

XMPR 



149.99 
159.95 



150.00 
350.00 



|» MMMMMMM < M » MM »| 

Color Computer 



■HIDLIia - 30 Mb* MoBocbrcsa 

Tldao drlvar 
CC30 PORT BUS «/po«ar aupplr 

5 S8-30, 3 Cart 
POBBB BOX S aaltebad oatlata 

traaaiaat aappraaaloa 
BS'333 S.aattebad porta 

for abava 



15.00 30.00 
169.95 199.95 



39.95 39.95 
ISO *30.00 *35.00 



Write tot FREE Catalog 

AOO $J.OO 5tM Pf» ORDER 
WIS. AOO i\ SALES TAX 



11931 W. Bluemound Road 
MILWAUKEE. WIS. 53226 
(414) 257- 0300 
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fixes, Prlae, 'Fraod, 
•*Hexpawn,**LlfeClBe 
Find, TableZ, Intext, 

*Flnddac , 'Change, 



OlaY-l Flleaorc, Hlnlcac, Hlnlcopy, Hlnlfaa, 

**LlfeClae, ••Poetry. ••Poodllat, ••Diet. 
Dlak-1 Olskadlc w/ Inac.l 

••Snoopy, ••football, 
Dlak-3 CbugCra, Seel, Sec2, 

Dlak-exp, •Olaksave, 
Diak-4 Hailing Prograa, 

•Teacdlak. 
DISK-& •DtSKKlX 1, •OlSKFIX 2, ••LETTER. 

••LOVESICN, ••BLACKJAK, ••BOWLING. 
DUk-6 ••Furchaae Order, Indax (Disk File Indx) 
Diak-7 Linking Loader, Rload , Ksrkness 
Dlak-a CrCesc, Lsnpher (Hsy 82) 
Olak-9 Oscscopy, Dlskflx9 (Aug 82) 
Dlsk-IO Home Accounting (July tt2> 
Olak-U DlBseabler (June 8A) 
Dlak-12 Hoden68 (Hsy 8«) 
Dlak-13 •InlCafbtt, Tescnf68, •Cleanup, •Dakallgn, 

Kelp, OaCe.TxC 
Dlak-14 •Inlc, •Teac, •Teralnal, •Find, •OlakedlC, 

InlC.Llb 
Dlak-1& Hodeaf * Updacss <Osc. Uk Gilchrist) Co 

Hodeaf (April 84 Cosbo) 
Dlak-16 Copy.Txc, Copy.Ooc, CsC.TxC, Csc .Ooc 
Olak-17 HsCCh Utility, RATBAS, A Bsslc Preprocessor 
Dlsk-ia Parae.Hod, Sice. Cad (Sspt. 83 Arsatrong), 

CHDCOOE, CMD.Txt (Sept. 83 Sprsy) 
DlBk-19 Clock, Dsts, Copy, Cst, FOEL.Asa & Doc, 

Errors.Sys, Do, Log.Aaa & Doc. 
Dlak-20 UNIX Llks Tools (July & Sept. 83 Tsylor & 

Cllchrlst). Drsgon.C, Grsp.C, LS,C, FDUMF.C 
Dlak-21 Utilities & Gsaes - Dsce, Llfs, Hsdness, 

Touch, Goblin, Stsrshot, & IS acre. 
DIak-22 Rssd CPH & Non-FLEX Disks. Frsaer Hsy 

ISB«, 
DIak-23 ISAH, Indexed sequentlsl file sccesslng 

aethods. Condon Nov, 1983. 



This Is ■ rssder service OaLfl No Wsrrsnty la 
offered or lapllsd, they sre ss racalvad by 'M' 
■IcTO Jaaraalt snd sre for reader convenience ONLY 
<soae HAY Include fixes or pscches). Also 6800 snd 
6804 progrsas sre alxed , ss esch Is fslrly simple 
(aoscly) to convert to the other. 

PRICE: 8" Disk $14.93 - 3" Disk $12.95 

6a' HICIO JOOIAAL 

FOB 794 
Hlxson. TN 373A3 
61S-«4Z-i«M 

* Indicates 6800 

•* Indicates BASIC SUTPC or TSC 

6809 no Indicator. 

■ASTU CAID - VISA Accepted 
Foreign — add lOZ for Surface 
or 20Z for Alrl I 



Telex 5106006630 



63 



January '86 



'66' Micro Journal 



PT-69 SINGLE BOARD COMPUTER SYSTEMS 
NOW WITH WINCHESTER OR FLOPPY DISK DRIVES 



The proven PT-69 Single Board Computer line is expandingi Systems now can be Winchesler or lloppy-based Available also in a smaller 
cabinei wtihoul drrves lor dedicated sysiems with no mass Storage requirements. 

■ 1 MHZ 6B09E Processor ' 2 RS 232 Serial Ports (6BS0) ' 2 B bit Parallel Pons (6B21) 

■ Time-Ol-Day Clock * S6K RAM 2K/4K EPROM ' 2797 Floppy Disk Controller 




Custom Oetign Inquinas Welcofna 



WmchntH Sir*l«ni 

• PU9X1 WINCHESTER SYSTEM 
Includn S TlfG WtmAaslar Drlva. Z 40 track DS/DD Orlvn, 
Parallel Prlnler Inlerlica • eholea ol OS/9 or SIAR-DOS 




• Pr6SS?riOPP» SYSTEM 
Includts PI6S BoK-d. 7 OS/OO iO IRK S 1/4' 
lailclilng mwir mpply. OS/9 or STAR DOS 



i I 795. 9S 



}t9S 9S 



• PT t9AASSFMBIED & lESTfDIIOARD 
.OS/9 

• STAR -DOS 



1279 00 
1700 00 
t !>0 00 



ftinel. 



VISA MASTERCARD/CHECK/COO 



PERIPHERAL TECHNOLOGY 

I4B0 Terrell Mill Rd . Suite B70 
Marietta, Georgia 30067 

Telex •680584 404/973-0042 



CALL on MOITC FOO *00ITK>U1. 
COXfflGiXUTIONS 




/ iHPUT t^ UTiLiTies rCyouTPor/ 



XDMS ,....._ 

^%^^X^^ Ikii '^ V% '^^^^^ W«^^ V%^ ^^ft«tf^^^^VW% l«v«l iMCludvm fr* xDmS nwclvv*. VHOEK utiltly »ra tyXtm |}«n»«»n t«tion 

iJ^Ta iVIariaCjBlllBriL SVSlBlll *«' ^•"•i ^^ ^^^^ •* ■"'• <" **" '^<»' »«-«rrui ir«t*M« «v*ii«bi« far 

^\ -w.^iw- ■«M^-«v-a ■ ■■«*-■ ■« ^^^ ^^ «■«*-■ ■ ■ ^g^^ eo«pui«f» And m«r b* M»«d *q' « «id» *«ri«ty of Application*. XDNB 

u«tf* *r* rtpivlvrsd an aw dalftfa*** to pdrmit dllWiBunon Of praducl 

3CX3MB L»v»l X 

XDHt L.«.«l 1 cofititti of DCFIME. VPOATC *nd ftCPOKT Ucilili**. 
TM* Iftvdl I* intvndvd ** «n 'anlry lovdt* ijttdm, «rid pdr^titt «ntry tnt 
PRINT I r*|iorling of d«1« ofi ■ *r«6ul«r' b««it> T>i* RCPOHT f«cilit]r tupparta 
ricord *nd nald ••Isc^tonp 4t«ld mar go, aortingi lina c«lcul«1ian*> 
colunm ial«l« «nd idporl titUnS- Control 1* «t« « XngliaH'likt I«n0ii»ga 
whlcK t« u9**rd coiitftjtibi* vith l»v«l I[. XDHS Lovol I «]2o.t3 

XPMB Lipwl 11 

Lovol II «dd« ta Lvval I ttw poi^vrfuJ OCXERATE f«cili1y. Tki* f*ciuty 
I c*n b* thought of «« * gonor«l (||« procavsor which f«A produca roporli, 
otaPUmw I (orifia and lorm lottart a* "OlI «« *»tm output Mhtc^ **y bm r«- Input to 
tha facility. OEM CRATE May ba vaad m co«ploi procoaaing application* 
4Ad ta contPOllod by a C«iglith-li^« cOMP«,ntf langu*!* *lti<h vnco^Sftfttaa 
l^at uaad (>y L-oval I. XDNB La>al [I «lf*.«9 

^^ - -J XJJWB l^m^ml XIX 

/ 7 / # Laval III includaa all a* tavvl 11 plua a »*t of liaaful DNS Utilittva. 

' CU f /ASCII f Tnaao utiltttoa ara daatg-ad to aid lA th« dt««le»«.ont «rd -.aintonarico 

L FiLCSl \ FILE I o' "**' *p<Pl«c*tiana and parmil Modtf )c«tloti of XOMS ayoton. patAdialara, 

V, \ \ \ n»9*H and ttutput of X DK> rii*a, 4t»*l«r •**< n*»0»'ic»tiO" of fila forotat. 

^^^^^^""^ j/7^^^'^^^^ graphic oi*pl«y of numancal data and othar function*, (.oval 111 l* 

jy^ Irtand8«i for ad*anc*d XDNB i^avrt. XDNS Laval ill »7i9.97 

\ JL /C^ XOHB Byaton Documantalior^ oftly <alO. crodil toward purcbaaot* > .% 24<VS 

' XACG Actrpuntjtna Bvt»m 

DISPLAY 1 Tn* I ACC Conaral Accounting Sy«t«<» la Haaignad far aaial I but mot* 
an* iranaianta of up to 19*440 accaunta a(il> lAvantOry ila*a. Tha agrata* 
Iniagraltf «ccovntin4 functior.a AAd invaritari pLua tli* gonaral loci{|«r> 
account • racoivablo «>id payabla fund ion a ram ally aoLd aaparaialy |n 
othar kyalam*. taaturaa utar pafinad account*, praducta tor aarwicoplp 
IrafttActiontt in«oicLr>g. alc« Taailr conf igur adi to mo at anmroAMan ta- 
XACC Oariaral Accounting Byalaai <H*«ul/aa XDNB. prvF. tv. Hit. . «;»,t9 
XACC gyata* Oocwwantatl^ft only )alO. cradtt lowar* purcsaaa). . .% J4,.tS 

VrBSTCHVEttXER Applied BuvinVS* SyvfOm* 

Poat Offic* Bob l*7r flrtarclirf Naitof. M.T. IPSIO 

4ll ooftvaro (« wrllioa t* •dcro/oootaklor mmA ria«o i«U«r UOf f\MX O/S** 
Taraai A*c«t Ito^or Ot^dr, lf(aa ot HoocdrcBarf*. Shlp«aaC lltaK claaa.' 
Mtf r«i f2.U <f7.)« Pordtin S«rUcd or |l>.00 raral|n Air). Wt %m% •Ai 
Apptlwcj ^LjUlnftss ey«t«ma aalad tu. Sp«et<y >" ot •". 

Poat Offica Aei 117 
tarcliff Manor. N.T. lotio SaUn ft, ■« «V«A, (»|» Ml 141. Cw«U«<l«i IJ4-«A]-»J3 (•«•■■) 
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GmX 68020 DEVELOPMENT SYSTEM 

A Multi-user, Multi -tasking software development system tor use with all 68000 family processors, 




HARDWARE FEATURES 



• The GMX-020 CPU board has: the MC68020 32-bit processor, a 4K 
Byte no wait-state instruction cache, high-speed MMU, and a full- 
featured hardware time of day clock/calendar with battery back- 
up. It also provides for an optional 68881 floating point co- 
processor. 

• 1 Megabyte of high speed static RAM. 

• Intelligent Serial and Parallel 1/0 Processor boards significantly 
reduce system overhead by handling routine I/O functions. This 
trees up the host CPU for running user programs. The result Is a 
speed up of system performance and allows all terminals to run at 
up to 19.2K baud. 

• The system hardware will support up to 39 terminals. 

• Powered by a constant voltage ferro- resonant power supply that in- 
sures proper system operation under adverse AC power input condi- 
tions. 

• DMA hard disk Interface and OMA double density floppy disk con- 
troller are used for data transfers at full bus speed. The OMA hard 
disk drive controller provides automatic 22-bit burst data error 
detection and 11-bit burst error correction. 

• A selection ot hard disk drives with capacities from 19 to 85 
Megabytes, removeable pack hard disk drives, streaming tape 
drives, and floppy disk drives is available. 

UNII n 1 tiMiroKi at a 1 ( T 
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GIMtX, Inc., a Ctiicago based microcomputer company established In 1975, has produced stale of the art microcomputer sysletns based on Molorola 6800 an( 
6S09 microprocesson. GIMIX systems are in use in Industry,, Hospitals, Universities, Research Organiations, and by Software Developers. GIMIX was awardec 
the prestigious President's "E" Certificate for Exports in 1984. 



SOFTWARE FEATURES: 

The UniFLEX VM Operating System is a demand-paged, virtual 
memory operating system written in 68020 Assembler code for com- 
pactness and efficiency. Any UniFLEX system will run laster than a 
comparable system written in a higher level language. This is impor- 
tant in such areas as cor^text switching, disk I/O, and system call 
handling. Other features Include: 

• compact, efticieni Kernel and modules allows handling more users 
more effectively than UNIX systems, using much less disk space. 

UNIX system V compatibility at the C source code level. 

C Compiler optimized in 68020 code (optional). 

Record locking lor shared files. 

Users can share programs in memory. 

Modeled after UNIX systems, with similar commands. 

System accounting facilities. 

Sequential and random file access. 

Maximum record size limited only by the disk size. 

Multiple Level Directories. 

Up to 4 Megabytes of Virtual Memory per user 

Optional Languages available are: C, BASIC, COBOL. FORTRAN 
LISP. PROLOG. SCULPTOR, and ASSEMBLER. In development ar« 
ADA, PASCAL, and FORTH. 

Included with the UniFLEX Operating System are a Utilities package 
editor, relocating assembler, linking loader, and printer spooler. Op 
tions inlcude a fast floating point package, library generator, and < 
sort- merge package. 

The GMX version of the MOTOROLA 020 BUG is included with Ihi 
system. 
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Technical 
Products 
Announces: 



Building Block Systems 




Engineered tor Expamion 

SOJtfiwftt prcvides two families of 
Building Block Systems carefully engr- 
neered to meet the demanding re- 
quirements of business and industrial 
eiivirofvtients The Building Block Systems 
are the starting point tor tiurUing a system 
tailored to your specific application 

Solutions Harctware 

Eac/1 system is configured with a pieM«f- 
hi\ Motorola 68609 Central Processing Urvt. 
mass storage and expansKVi pom tor 
adding addffcmal devrces 

• Air the Building Block Systems come 
equipped with one or pmo 5 'A inch floppy 
disk drives Each fk^ppydisk drive hasal 25 
million charactef capaoty 

• A variety of Winchester disk drives are 
av3«lat}le for applications with large data 
volumes and/or multiple users 

• The SKXX) and S1IO0 are cJellwered m an 
attractive office ervronrientsystem cabinet 
wwth casters (or easy movement All otfier 
Building Block Systems come as two stack- 
at}le boxes 

• TheBuildIng Block Systemscome ready 
to accept at least one terminal and one 
printer Larger systems are configuied to 
support additional penpfieral devices 



Sotutlonf Son«vare 

The S600 system inchjdes tfie versatile 
single- user FLEX" Operating System 
Requirirtg less tfian S6K bytes of memory. 
FlEX" IS the operatirtg system of choice for 
s«ngkr-user applications R.EX'" devetopers 
f\a«c a choice of Assembler. BASIC, C and 
Fortran for dev«k}pir»g applications A 
variety of system utilities are also available 




S«00 System 

Pnnter S Tpmsnal OpUorvil 



All Other systems are shipped with 

UniFlEX* (UNIX- kMk-alIke) provides a 
powerTol multi-user, multi-tasking oper- 
atirtg system Residing In less than 60,000 
bytes of memoiy. UnlFLEX« Is capable of 
supporting large Installations of up to 
sixteen terminals and multiple primers, The 
UniFlEX» operating system supports 
Assembler. BASIC C, COBOL Fortran and 
Pascal. A variety of system utilities are also 
available. 



Bulldlrtg Blocks 



Each of the Building Bhxk Systems rs 
ready for the user to ejipand as needed In 
general, tfie S600 and S650 are intended 
(or applications which need four or less 
users on-line The S900 and S950 are 
targeted for applications with four to eight 
terminals. Both the SOOO and the SIlOO can 
easily support up to sixteen terminals and 
provide for nuximum growth potential 
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S600 


64Kb 


2 






3 


2750 


S650 


256ICb 




267Mb 




5 


5700 


S900 


256Kb 




26 7Mb 




5 


6000 


S950 


5)2Kb 




40Mb 


40Mb 


5 


9000 


snoo 


512Kb 




51Mb 


40Mb 


9 


11500 


SIlOO 


5t2Kb 




85Mb 


40Mb 


9 


11 000 
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South west Technical Producti, Corp. 

219 \X*st Rhapsody • San Antonio. Texas 78219 

(512) 344-0241 
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Technical 
Products 
Announces: 



CAD Southwest 
A Computer-Alded 
Drafting System 




tor the Pniteaional 

Soucrrwest's Compute r-AicM OrafCng 
System repf««nB the state of ttie 
art In computer-aided draft lr>g. It 
eliminates ttie need for labor Intensive 
drafting using the traditional T-square 
and triangle approach. Via keytxiard or a 
sophisticated digitizer tablet, you can 
qulckf/ and easily prepare ev«o tne most 
connpllcated drawings. Naturally, changes 
can be easily made at aiy dme, A llbraiy 
of standard symbols is provided as wet! 
as the flexibility of a user Cfdnea symtxsl 
library. Drawings may be printed on 
either a line printer or a plotter. 




ImcaiMl PnxfuctMiy 

A powerliil set of CDmmandls allows 
even (tie ncMce user the ability to quidcly 
and easily prepare onfilex drawings. TTie 
e4>erienced draftsman will quickly raallze 
substantial Improvements In productivity. 
TTie computer assumes the entire burden 
of line and arc drawing, freeing the user 
to concemtaie on design Issues. A partial 
list of key features Inctudes: 

• no Nmlt to number of drawings 

• standard grid pattefn, used tar refer- 
ence; will increase or decrease witti 
scale 

• Isometric grid pattern - similar to 
stancbrd 

• library mode - complete ot^^ecQ can 
t>e drawn and stored In users' Ifbrary 
tor later use in ariy diawing 

• mirror ot^ects - Images of objects In 
llbr»y can be easily dupvoied 

• ttie terminal saeen acts as a window 
by v^ilcti the user can qukAly rn^e 
large drawings 



draw/ddrte htyaians 

• arc/tillets (solid or dashed) 

- drdes )x}liO or dashed) 

- lines and sequenx of lines (solid or 
dashed) 

- true hDftoyna (/vertical lines 

- center lines 

' dimension lines 

• exiension lines 

- dimension lines perpendicular to ex- 
lenskxi lines 

-extension lines perpendicular to 
normal lines 

- Dcaei: an/ itofx or siie defined by 
two diagor»l enr^KiinD 

• library objecrs: previously deNned 
library objects drawn or deleted 
wftti a couple of keystrokes 

• ^eafliis 

• special ^y1C(tars: 

- change line mode: solid to 
dashed, dashed to soM 

• sector circle: save portion of 
drde as arc 

- segmeni Hnes; break sirigle line 
mto cvMi lines 

• scale using fxmr - tfioose de- 
sired scale muit^ 

• scale using window - "zoom in" 
and work on a selected area 

completr set of labels - conpirtiwisAie 

latel generation conponent to amo- 

catedrswrngs 

overlays - ary drawing can have up 

to 255 overlays 

cursor functkins.' 

- variable size: user can scale cursor to 
CDr7v«Ti lent size 

- vaitable step: user can idea single 
pixel/giant step for movement of 
cursor 

- homing: cursor can be quickly moved 
to 9 possible predefined home posi- 
tions on screen 



complete dlsk-orlemed library main- 
tains routines that allow you to 
maintain your drawings on the 
compucerdlsk , 
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Big syitem Fe«n>«s 

As ycxj prepare your drawing, you can 
control which portion is available for 
work on the terminal screen. Simple 
■yivTtdich altow you to move up, down 
and sidrways to view d rf fe i e ii t segment 
of a large drawing. "CAD ZOOM' alknvs 
you CO qulddy ~2oom in,' turning your 
terminal into a ccyrpuisced magnirying 
glass for detailed review of individual 
sections. "CAD ZOOM" comprcses tfie 
drawing, allTwing you to look at multiple 
sec of the drawing on one screen, 

A powerful overlay feature st^sports up 
CO 2SS overlays tor cfte same drawing. 
For example, /)u may wish to tave ttie 
floor plan on one overlay, electrical 
wiring on a second, l-l\/AC on a third, 
and so forth. 

Tbc RIgttt Equipment 
CAD Southwest runs on the proven 
SVE^TPc family of computers operating 
under linia£X". a urUfX" llMe (Operating 
system. Five to elgWawi terminals, de- 
pending on the model rxjmber, can be 
attactwd id ttie CPU with a variety of 

fiard disk storage fbr your (99wv^. 
TTie Irdustrtal quality X-12 vem*- 

rial from Sotittivvcst prtMdes crisp 

resoh/ttoo artd a 92-key keyboard. A 

digitizing tablet rruy be opaonaiiy 

acocried to eadi terminal. 
Drawings may be prFited on a 

dot matrix printrr or QptkFially on 

an 8 CDtor pen pkmei 
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